
PUBLICACION PARA USUARIOS DE MICROCOMPUTADORE5 ATARI 


viDEomnmA 





I 




MUNO®ATARf 

PUBLIC ACtON PARA USUARIOS DE MlCROCOMPUTADORES ATAR) 

E. 

| , 

I : • . ■ ' T ' . - 


EDITORIAL 3 

Ley de Boyle y Mariotte 4 

DOS 2.5: 1050 5 

Colegios con ATARI 6 

/ 


MANEJANDO TU ATARÍ 

información, programas y actividades 


para todo nivel de programación 

Directo al 6502: Buffer de! casete 7 

USR: Ventana en modo 0 9 

SOC, Sistema Operativo del Casete 1 1 

Técnicas: Estructura de uno letra 12 

De byte en byte: Control de función especial 13 

Primeros pasos en ATARI BASIC: 

Duplicidad de información 14 

130 XE 15 

T o r pe do: l n gr eso d e s ti i n g 16 

Novatos: Input, continuación 17 

Juego del Mes: POLOLEANDO 19 

Avanzando 23 

Dominando la 1050 26 

Controlando la casetera 28 

Gu ía BASIC: Colaboraciones de lectores 30 


EDUCANDO CON ATAR! 

Actividades exclusivas para la aplicación 
de ATARI en la educación 

Peques: Aprendiendo los colores 33 

Ciases con ATAR I : Ubicación espada! 35 


ST Información acerca de la nueva línea 



de computadores ATARI 



CLUBS! 

37 


Video manía: Eventos, Rgnking 

38 


CENTIPPEDE 

40 


\ 



i 



NOVIEMBRE 1937 


1 








ÍSS4.-ÍC*¿|r jPl H: ,l.p ¿ i,;.. úl u-i ff if^.. . -Til ■' <I'C- 





AMIGOS LECTORES: 

Para completar su colección de 
MUNDOATAR1 utilice la Orden de 
Pedido adjunta a la revista, de acuerdo 

al modelo siguiente: 


SOLICITUD DE ORDEN DE PEDIDO 

s' P.ii .'.ir ,-' *-*.i Ll L»*UVllUr Hr : B.' T ■■■■>■ |V t I" '"M-* J ■ v l> T-IM *J- , 


GONZALEZ 

r. V'lldi* IJ i ‘ " 1 1 ’ 1 

I 1 U.RAN 

ijíh'iiK 


LUIS 

ruiN.nA- 



CUMHING 

9 * 1 ,.. ,, OPTO 

B 




'VALPARAISO 

SQMM 4 



St,lH niM II,.- I i. -ii 1 r ■. i 1 r.í i : i 1 1 ’ 1 - > 1 1 1 1 1 ■ ' ' * ! ■ j ■ ■ 1 1 • i : 1 . ;n liM 


■ h: . ii*- - ! r 1 l* 1 1 L ■ - 1 

ürE? 1 i|K.-3r «Ir i *jlí 



.-.-i,. ij xpínfeiiú f aiiíTnTM 


1 

1 


ü ,1 

!■ 

I 

■- 
1 L 


* o 

4 3 
ABC 


i si: A M,y. K D o ATA R í 
y ; y 

y ■/ 

Libro m.undoataRi 




i ORDENE HOY ! 

fN' IE A MUNDClAT A MJ, Clíilla *1» 1 I fciiAíO, Sjrm^ 


■or^'. a 

■li V.-. rftini'iiiiri •í.r ii nin'.r 
VÜI.fiH ' :/lji V -.- "" 



1^60 


F O h M Ji 1)E PAI3IÜ . il" :-j i ■-» .-sinLf ■ Ü* ten? -ta Lj ■ 

r,h«n . M ■ ■ ■ 

ir: vjh v#tn 

iVíiu r.v.t' ■ 

'.Vi!;: ■■ .-.Ií|i i 
VAC-Plíi ( v 

tíin.A / 

NINVJ'S 


I :tln i i ■ •] i/l l.s , Vli! 


• II;M1 .1" I ! L‘- I 


2 


mundoatari 








Editorial 

A MIGOS de la gran familia ATAFEf de Latinoamérica, desde este 
momento estará presente con ustedes MUNDOA1 AR I, como 
respuesta a la solicitud de distribuidores ATARI. Nos dirigiremos 
a los usuarios de los países- hermanos con la misma definición y objetivos 
planteados para nuestro país de origen 

Las actividades de esta editorial aumentan con el conocimiento 
del mercado ATAR! latinoamericano y hará posible la participación de 
cada país en un marco de integración que vislumbra proyecciones 
futuras insospechadas. 

Presentarnos como muestra en este número software producido 
por SKYDATA, representante oficial de ATARI para Argentina, y que 
corresponde a una línea definida por MUNDÜATAR! como simuladores. 
Ellos pueden cubrir aspectos diferentes en objetivos específicos de las 
diferentes asignaturas y son aplicables a todos los países latinoamericanos. 

Este software abre un camino amplio en aspectos tales como; 

1. El computador ATARI como apoyo efectivo para el profesor de 
asignatura, como un valioso medio audiovisual de proyecciones, 
en el logro de objetivos específicos de un contenido para una 
determinada asignatura. Ver al respecto el programa descrito: 

Ley de BOYLE y MARIOTTE. 

2. La integración de este software o cualquier otro producido por 
países latinoamericanos. 

Al darse a conocer inmediatamente en la totalidad de los países 
latinos, trae como consecuencia fa optimización de recursos de 
programación, y por ende, un menor precio de venta al usuario, 
con fa consiguiente disminución de las coplas ilegales o piratas, 

3. MUNDOATARI, en números futuros, proyecta presentar un 
Catálogo internacional de software en castellano para la gran 
familia ATAR! latinoamericana. 

Amigos en general, en sus manos se encuentra la posibilidad de 
ayudarnos a cumplir los objetivos propuestos, a través de su cooperación 
al preferir esta revista en su kiosco. 

Desearíamos recibir sus comentarios al respecto dirigidos a nuestra 
casilla 458-1 1, Santiago de Chile. 
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Ley de Boyle-Mariotte 
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Es le ines presentamos uno de 
los simuladores producidos por 
SKYDATA en Argentina, y que 
corresponde a la Ley de Boy le 
y Mariotte. 

Para los profesores de Cien- 
cias Naturales es bien sabida la 
dificultad de implementar estas 
demostraciones exper i mental- 
mente. Pero con ARAR! educa- 
cional y SKYDATA se solucio- 
nan, y su computador adquiere 
la pote n cia q ue M U N D O A I A R i 
ha pfant ea d o d esd e s u co rii i e n z o . 




N o s se n t i rno s co m p l a c idos 
por estos jorros de programa- 
ción de SKYDATA y creemos 
que se encuentran en la senda de 
la necesidad futura educacional 
latinoamericana. 

Estos programas son módulos 
q u e s e Integra n f á c i i m e n t e a c a d a 
país en él nivel y asignatura del 
pa fs q i te req u le ra de su ef i ci er i cia . 

El programa requiere de la ex- 
plicación permanente del profe- 
sor de asignatura para desarro- 
llar una (Tiple interacción profe- 
sor - ATARI • alumno para ad- 


quirir los conocimientos y apren- 
dí zaies de estas experiencias en 
las Ciencias Naturales Básicas. 
El menú inicial contempla: 

— Ley de Roy le y Mariotte 

— Ejercicios 

I a pr i mera selecci ó n rea I i za 
una demostración práctica de la 
ley. 

En la segunda existe la posibi- 
lidad de interacción con el alum- 
no para evaluar los objetivos al 
ea nzados. 
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PROGRAMAS 


Otro producto de SES Sistema 
para usuarios de la Unidad de 
Disco ATARI 1050. 


La Unidad de Disco es, sin 
duda, el equipo ideal para la 
mayoría de los usuarios, en 
cuanto a la capitalización inicial 
del hardware. 

La co n f i g 1 1 r a c ion ATAR! c o o 
Unidad de Casete es m portante 
c □ < ri o p unto d e p a r 1 1 d a, n iá s a ú r i 
si se considera el recurso de au 
dio para las aplicaciones educa- 
cionales con los pequeños del 
g r u po f a m iliar. Pero en e ! rn a- 
nejo de trabajos de uso profe- 
sional o comercial se requiere 
de la velocidad y seguridad de 
ta Unidad de Discu, como peri- 
férico de almacenamiento de 
información, 

Para aquellos usuarios que 
p i o y e ct a n a ó q u i r i r t j n a u n i d a d 
o para quienes ya la poseen, SLS 
Sistema presenta un utilitario 
ú n i co pa 1 3 I a o p i i m i zac i ó n d e su 
uso: ef DOS 2,5; 1050. 

Este es un curso de capa cita- 
ció n per so na I i zada en 3 d iskettcs 
(correspondientes a niveles de 
conocimientos), que Je permitirá 
avanzar en ei manejo de archivos 
según el nivel de dominio del 
tema. 

1) Nivel UNO: capacita el mane- 
jo básico del menú del DOS 
y archivos. 

2) Nivel DOS; dirigido a usua- 
rios con dominio del BASIC. 
Proporciona información re- 
forzada para crear archivos 
que permitan manipular datos 
por medio de la Unidad rJe 
Disco, 

3) Nivel TRES: para usuarios 
más avanzados, que quieran 
mejorar las técnicas de pro- 
gramación con recursos de 
rutinas de máquina. 

M U N D O ATA R I , co mo una 
promoción especial, entrega de 
regalo por la compra de este 
programa 30 rutinas para manejo 
de archivo, que le permiten cum- 
ple mentar el tema. 

En MU R SOY se encuentra dis- 
ponible también esta oferta con 
el uso de sus beneficios, * 


DOS 2.5: 1050 





c i é S & A « f , t é F í> 
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Colegios con ATARI 



Colegio visitado: 

Liceo Técnico Femenino. 

8-39 

Recoleta 2774 , Santiago 
Coordinador de Computación: 
Sr. Ricardo B lunch Morgado 
i izquierda) 



M U N D O A T A R i coniin ú a vi- 
sitando la realidad educacional 
con ATARI en Santiago, 

Don Ricardo Blanch Marga- 
do, coordinador de computa- 
ción de CQRESAM (Corpora- 
ción Municipal de Educación, 
Salud y Atención de Menores} 
y director del Liceo B-39, es 
gestor de un interesante proyec- 
to para integrar el computador 
ATARI en las actividades educa- 
dor ¡ales. ■ 

Hay un total 1 de 6 estableci- 
mientos municipales bajo su 
coordinación y cuentan con 
27 computadores ATARE Rea- 
lizan actividades como: 

- Cu rs os d e ca pa c i ta c i ó n en len- 
guajes BASIC y LOGO para 
profesores de asignatura de 
os establecimientos del área. 

- Cursos en 3 niveles (A, B, C) 
para los alumnos del área. Es 
importante destacar que los 
planes desarrollad os son igua- 
les y compatibles entre los 
d ist i ntos est ab I eci míen to s . 

A partir del segundo nivel rie- 
se r r o 1 1 a n los a I u rn n os p ro gra- 
mas ríe apoyo en las el íf éren- 
les asignaturas, coordinados 
por los profesores de asi cria- 
tura y de computación. 

Esta modalidad la considera- 
rnos muy importante y cree- 
mos que debería servir de mo- 
delo para los objetivos de la 
asignatura de otros estable- 
cimientos. 

- Actividades especiales duran- 
te el período de vacaciones, 
que contemplan cursos para 
profesores y alumnos, para 
capacitarlos a niveles supe- 
riores. 

i 

Este proyecto de COR ESA M 
es un modelo de investigación 
práctica y debemos felicitar al 
señor Blanch por su creatividad, 
perseverancia y dirección de 
este proyecta, 

Para mayor información de 
este proyecto escriba a: 

Colegios MU NDGATA R I 
Casilla 458-1 1 

Santiago • 
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Directo al 



Para desarrollar video- juegos como eí de 
la presentación se requiere 
de programación avanzada en máquina. 


PROBLEMA: BUFFER DEL CASETE 

La interrogante del número anterior será el 
punto de partida de la columna de este mes: 

— ¿Cómo poner en pantalla los valores de! 

buffer de la casetera? 

En este número proporcionaremos una sotu 
ción, que la definiremos como simple, en el senti- 
do de ejecutarla con las instrucciones estudiadas 
liaste ahora en lenguaje ASSEMBLER. 

Para producir el efecto esperado el ciclo del 
ATARI BASIC soluciona la repetición: 

La p r i m e ra n i o d i f i c a c i ó n d e d a to s pa rae! pro- 
grama anterior proviene de la localización especí- 
fica en la memoria para el buffer de i casete. Estas 


localizaciones parten en la 1024, es decir, en la 
página 4, 

Recuerde al respecto que: 

1024/256=4 
1024 = $ 400 

y por ende la localización inicial se encuentra en 
S 0400 (1024). 

La instrucción será: 

LDA $ 400 

El valor inicial en pantalla a editar lo localiza 
remos en página 157 decimal ($ 90), y la ínstrue 
ción será: 

STA $ 9D 
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ASSEMBLER: continuación 



Completando con PLA y RTS (ver numero 5 
de MUNDO ATAR I ) : 


PLA 

104 

1536 

LOA 1 400 

i 73 

1537 


0 

os 

co 

LTJ 


4 

1539 

STA *9000 

141 

1540 


0 

1541 


157 

1542 

RTS 

% 

1543 


Los códigos decimales de la columna son los 
que corresponde introducir en página seis (para 

activar con la función USR), 

La tercera columna corresponde a la localiza- 
ción en página seis, que contendrá el valor a eje- 
cutar el ciclo de lectura de (Jatos (lineas 20-50). 
Digite el listado siguiente y ejecute: 


10 GRAPHIC5 0 
26 rOB J“0 T0 7 
30 READ A 
40 P0KE 1536+J,I> 

50 «EHT J 
00 Y-Ü5ÍK153&J 

100 DATA 104, 173,0,4*141, 0,157,16 


El efecto de esta ejecución será mover el pri 
mer byte del buffer en página 4 hacia el primer 
byte de la página 157 en la pantalla. 

A continuación conectamos con nuestro ATA- 
R! BASIC y el ciclo FOR... TO.„ 

¿Cuáles localizaciones de la página 6 identifi- 
can el byte? 

En ei esquema anterior vemos que Ja localiza- 
ción 1 538 contiene el byte de la página, el que co- 
rresponde al 0 (página del buffer de casete). 

La localización 1541 contiene el byte 0, tam- 
bién de página 157, que corresponde al área de 
pantalla. 

x 


Modifiquemos estas localizaciones para la va 
riable control del ciclo con las siguientes líneas de 
programa: 


10 REH Git*0 
20 F8R T0 7 
30 & 

40 FDKE I536+J,I> 

50 NEHF J 

60 FOR J-0 TO 127 

70 PDKE 1538, J: PDKE 1541,3 

80 Y-BJ5R £15361 

?0 HEKT J 

106 DATA 104,173, 0,4, 141,0,157, 96 


Ejecute el programa y podrá apreciar los datos 
q u e' aparecer i e n pa n ta lia. 

MUNDOATARI, consecuente con su defini- 
ción, proporciona material para la investigación 
relacionada con otras columnas, en este caso con 
la de casete. 

Digite y ejecute el listado siguiente: 


1 flPEN Uj0,ft, ia C: ia 

2 PJtXMT tu;" prmamév 11 

3 FRINT ttlJ l, el buffer « 


Observará en pantana lo Ilustrad o con (a foto: 



T r- i 

Interesanie ¿verdad?. Realice las siguientes 
modificaciones: 


1. Agregue operadores A" y ", " para observar la 
forma de almacenarse en el buffer. 

2 . Ca mb i e las I e tras de it risaj es p or M A V U S C U - 
LAS. 

3 . Ag r eg u e i n stru c c i ó n pa i * a ce r r a r I O C B . 

El próximo mes continuaremos con otras 
formas de direccionamíento, que permiten una 
so I u ci ón má s exped i ca pa ra e I p m b i erna . 

Hasta entonces. • 
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A SSEf V¡ BLE R: co n tin ua c i ó n 


USR 



VENTANAS EN MODO CERO 

Este mes [a columna USR proporciona la res- 
puesta a la Ínter rogé i it e pía n tead a eí n ú mero ante 
rio r , d q co 1 no co nst \ u i 1 una venta r ía de co rr 1 u n i ca - 
cíón con el usuario en el modo cero. 

Digite cuidadosamente el listado siguiente: 


i REK PME 39971,152 

le pin 


12 HouER=ñ&H 



T f TP 


EÜD 3 s) 


f qfnF jFo 





15 P0KE B2,0;GO5ÍM 1090 

20 GRAPHICS $:POK£ 752, i :f OS J=8 TÚ 20 

30 ? «' ATA8I líder en CHILE 1987 


■t 


40 MEHT J 

100 FOR J=0 T» 5 

110 IHI-40365LJ#40 

120 FIH=39B0fie J»15 

130 VEHTA=39424+.HU5 

140 y=i]5R(H0tfER,lHI,FIH,15> 

150 V=U5R (H&tfER, VENTA, INI, 151 

160 MEHT J 


266 P05XTIOM 0,20:? i 

PRESIONE lé TECL 

A RETURN V ELIMINA U 

& VENTANA 

r 


210 INPUT 8$ 

300 FOR J=0 TO 6 
310 1111=39688 +JK15 
320 FIH=48365*J*40 


mm 


340 Y=USR ÍWVER , MI , FM,15} 

360 MEHT J 

400 PO5ITI0K 8,20:2 1 

410 INPUT Rí 
508 GOTO 108 

999 EHO 

1000 OIH VEHTAHAÍ Í105J , ELEf Í15J 
1010 FOR J=0 TO 6 

1820 REA A ELE? 

1030 VEHTAHA$(l*J#15í=ELE$ 

1046 HERI J 

1850 POSE 87,0:POKE 8B,0:POKE 89,154:P 
05ITI0H 0,0¡? VENTANAS 
1060 RETHRM 


1065 OATA | 
1870 DATA | 
1880 OATA 9 
1690 OATA I 
1108 O ATA | 


X EDIT 


21 


l C 



mmami 

SÜH! 

1118 OATA 
1120 DATA t 


2 JL 


Ejecute y observe el ciclo de superposición 
entre el texto y la ventana <!e comunicación, man 
teniendo vigente la información, como lo ilustran 
las fotos siguientes: 
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ASSEMBLER: continuación 



El manejo de la memoria es fundamental para 
la ejecución de programas optimizados. Probemos 
lo afirmado, digite la instrucción siguiente: 

Aparecerá en pantalla lo siguiente: 



En este foto aparecen las 4 páginas inferiores 
de la memoria (15?, 153, 154, 155), las que con- 
tienen la información a desplazar hacia la pantalla 
inicia! (páginas 1 56, 1 57, '! 58 y 1 59) 

Examinemos las líneas que ejecuta lo función 
USR. 


RUTINA PARA CREAR VENTANA: 

100 Ciclo para 7 movimientos que corresponden al 
número de líneas, 

110 Variable INI define la posición inicial para 
ATAR! 800 y 1 30, con la ubicación de la ven- 
tana 40.365. 


5 



posición inicial 40,000 

9 líneas 360 

posición 5 5 

40.365 

120 Define una posición en páginas inferiores. Ele- 
gimos 38.000 para guardar el texto en pantalla 
130 Define variable que contiene el texto de la 
ventana: 39.424 corresponde a la página 154, 
140 Mueve 15 caracteres desde el texto hacía la 
página de reserva. 

150 Mueve 15 caracteres desde la página que con- 
tiene ventana menú hacia la página de texto. 
160 Repite el ciclo. 

RUTINA PARA RESTITUIR EL TEXTO: 

300 Ciclo partí número de líneas de ventana. 

310 Define la posición INI: 39.800, que contiene 
el texto en páginas inferiores, 

320 Define FIN corno posición inicial de ventana 
de menú para restituir el texto. 

340 Ejecuta la instrucción USR MOVER. 

360 Repite el ciclo. 

Las líneas 200 y 400 contienen una pausa pa- 
ra observar el efecto. 






La sub rutina del 1 ,000 al 1 4 20 edita en pági- 
na 154 la ventana. Observe la utilización de la loca* 
I ¡¿ación de memoria 87, 88 y 89 analizadas en la 
columna De Byte en Byte de números anteriores. 


Ahora un desafío para ustedes: 

Optimicen esta rutina, para que se pueda in- 
gresar la ventana en cualquier tugar de la pan 
talla. 

Hay premios para las soluciones correctas. Es- 
criban a casilla 458-1 1 , Santiago, 

El próximo mes desarrollaremos una nueva 
rutina de búsqueda binarla, a pedido de la columna 
Primeros pasos en ATARI BASIC, la ou 
tira aumentar la potencialidad e , 
para su computador ATAR!. + 
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PROGRAMAS 


s.o.c. 

Sistema Operativo de Casete 


Para gst ed q 1 1 e es po seed o r de un co r n p u t a d o r 
ATARJ 800 XL ó 130 X E con unidad de casete va 
dirigida esta pregunta: ¿le gustaría poder manejar 
sus programas o archivos en casete de forma sirni- 
iar ai diside t te ? 

Ahora existe una poderosa herramienta de 
software para su unidad de casete; SOC r Sistema 
Operativo de Casete. Este es un programa especiad 
me n I e disen a d o pa r a s i i n u I a r el 1.5 O S (Si st e n >a t > p e - 
ra t i vo d el Di seo ) ut i I i zad u co n las uní dade^ d e d i s- 
ke.tté; 

De esta forma ahora es posible disponer de 
un ''Directorio'' con jos contenidos de programas 
y su ubicación dentro de i a cinta, facilitando la 
tarea de búsqueda y carga de programas desde la 
cinta, asegurando un óptimo rendimiento de su 
unidad de casete { ATAR P 410, 1010, XC-1 1 o 
XC-1 2b 

«. 

¿Cómo utilizar el SOC? 

Muy fácil, usted coloca el rásete conteniendo 
el p r oy i a m a S O C e n s u u n i d ad d ,e ca sute, presi o n a 
la tecla PLAY y luego enciende su computador 
co n la t e t: I a S I A R T p res i o n a d a . Al ca h o d e s i g u - 
n os s eg i j n d o s , e p r o g i a m a S O C s e ca r y a en su com- 
putador y se encuentra disponible para su uso. 
Para pasar al menú de opciones del SOC- debe digo 
tar la palabra SOC y presionar ja teda RETURN. 
En forma inmediata se despliega en pantalla el 
siguiente menú: 

Para escoger cualquiera de las opciones del 
menú, debe digitar la letra correspondiente y pre 
sionar RETURN. 

La utilización del SOC le permite grabar y 
leer los programas del casete con sus nombres de 
archivo (igual al DOS) y eí sistema se preocupa 
de realizar la búsqueda y correcta carga de' pro- 
grama. De esta forma, ya no tendrá problemas a! 
cargar un programa que se encuentra dentro de 
un casete. 
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El Sistema Operativo de Casete 
permite "formatear una cinta " y tener beneficios 

similares al DOS. 

Una buena noticia para los usuarios de casete ras 


Para lograr un óptimo aprovechan! en tu del 
SOC, es importante ceñirse a una método logia 
de uso, que involucra utilizar los comandos co- 
rrectos de grabación y lectura, ut 1 iza clon correr- 
la del contador de vueltas, definir el espacio al 
comienzo de la cinta para el d rectoría, etc y 
de esta forma no tendrá más errores en la carga 
de sus programas. 

No espere más, utilice desde hoy el nuevo 
SOC y disfrute de la unidad de casete, 

Para adquirir el programa descrito puede uti- 
lizar la Orden de Pedido adjunta él Caí ¿logo ATA- 
RE de acuerdo a las siguientes especificaciones: 


Modelo 

Descripción 

Med io 
(unidad) 

Memoria 

requer. 

$ 

precio 

SOC 

Casete Sistema Operativo 
de casete 

7 

4 Kb 

1.000 


1 1 


NOVIEMBRE 1987 




TECNICAS 



Set de 
caracteres 



ESTRUCTURA DE UNA LETRA 

La inte r r oy a n t e p endiente del n ú r 1 1 e r o a r i ter i o r 
se retei ía a la relación que tienen: 

- Los códigos 0, 24, 00, 102, 102, 126 102, 0 

- La ubicación 33 

- La letra "A' 1 editada en pantalla. 

Par a integrar estos elementos el ATAR! es un 
excelente Tutor. Bastará con digitar el siguiente lis- 
tado; 


10 REM 5ET2 OCTUBRE 
20 DIH BXHflRIQ$ (8 J 
25 &RftPHIC5 0 
10 F0R J=0 Tü 1 
i% ftídfl o 
50 SINARIO^" 

68 DIGITO-? 

70 F0R K"1 T0 7 
80 POF"2 A DIGITO 

IF D<PÜT JñlH 120 
100 J?=0-P0T 
110 BINÚRI0$(K, K) ^"l 11 
120 &IGIT0=&IGIT01 
130 REKT K 

140 PObllION lfl f J+5:? 

150 NEHT J 

200 &ATÚ 0,24,60, 102, 102,126, 102*0 


Ejecute el programa y apreciará cómo en pan- 
talla aparece la letra A. 



Interesante, pues en este programa se encuen- 
tra conectado el proceso que ejecuta el Sistema 
Operativo para editar en pantalla la letra A. 

ACTIVIDAD: 

1. Limpie la pantalla y eligí te : 

POKE 40000,2 

El carácter editado corresponde a la loto: 



2. Utilíce e! programa SET1 de MUNDO ATA R| 
No. b para buscar los códigos en ubicación 2 
del SET, 


3. Modifique la línea 200 de DATA con estos 
8 nuevos valores. 

4, Ejecute el programa, 

interesante. Gracias a la tutoría de su ATARI 
usted se encuentra en condición de entender con- 
ceptos más específicos, como el caso de código 
interno. 

Hasta el próximo mes. # 
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IB GRAPHICS 8 

ZB ÍHW ft$Ul 
SB fOR j-fl TO 19 

46 ? "EDITA LA LINEA NUMERO J 


58 NEKT J 

68 P05ITIÜH 8,28 ¡? •<] 


ü V COWTINLf* 


78 INPUT R$ 

86 ? CHR$tl25> 
188 ENO 


PRESIONE UHA TECL 


MI <■ 

j 


Ejecute y observe una pantalla corno indica fa 
foto siguiente: 


2, CONTROL DE FUNCION ESPECIAL 
Localización 766, 


Un grupo característico de caracteres cumple 
una función especial. El siguiente listado demues- 
tra la función de ellos, asociada a la instrucción 
PRINT CH RS (código), 

Digite el listado y ejecuté-: 


10 GRAPHICS 0¡Ii:.j&ICE=§ 

1 % dih codigo usi,fli$ tu 

30 ItEAD 0 

40 IF bzi TH EN 100 


5® INDICE=INDICE*l:CaDIG6UNDrCÉ>-D 
00 GOTO 30 

70 DATA 27,20,29,30,31,1757126,127.155 
, 156,157, 158,159, 253, 254,255, -1 
100 GRAPHICS eíK-INTíRND (01 *153*1 
110 CARACA-CODICE) fKJ 

120 P0SITI0M 2,16:? i4 EL CODIGO ES f, ;CA 
RAC; <f V 86 SERVE SU FUNCION" 

125 P0SITIOH l@ f ll5? « ATARI»; 

130 FOR J=í TO 5 
140 PRINT CHRSíCARACí; 

150 FOR PAUSAD TO 588:NEHT PAUSA 
160 NEJiT 1 

208 POSITI0N 0,20: PRINT 

dicite s 

/N" 

210 INPUT R$¡IF B$=< * l S 11 THEM 166 
220 END 


I rite resan te p r og ra mil a p e rs o n al q 1 1 e g 1 1 a r c J a I j a 
el Profesor Chip en sus archivos y aceptó publi- 
car lo para ustedes, amigos lectores. Disfrútenlo. 

Ahora a nuestro tema de la lo cT Dación 766 
y sus acciones en la función especial de las teclas 
mencionadas, 

Diyite cuidadosamente el siguiente listado: 



Presione Ja tecla RETURN y observe la pan- 
talla c o rno : r i d i c a I a f o t o : 



D i g i t e a co n ti n u ación la líri ea . 

75 POKE 766,1 

i 

t je cute y observe el cambio en la ejecución. 

Modifique Ea línea con: 

75 PÜKE 766,0 

Concurso De Byte en Byte para nuestros lee 
lores más entusiastas: 

Envíen las conclusiones acerca de este artícu- 
lo a Columna De Byte en Byte, casida 458-1 1 f 
Santiago, 

Todos los nombres que se publiquen con res- 
puestas correctas tendrán premios de estímulo. 
Hasta e I p ró x i mo . m es , • 
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TUTORIA 



pasos 

ATARI 

BASIC 


É 



DUPLICIDAD DE INFORMACION 

Este mes continuamos con el tema propuesto 
anteriormente: ¿Cómo evitar la duplicidad de in 
formación? 

A pl ¡quemo s e I p r o b I e r n a a un t e rn a es p e c í f i co : 
un programa para manejar el set de programas de 
un usuario ATAR I 

Los atributos pueden ser los siguientes: 

1, Nombre del programa (firma productora del 
soft). 

2, Clasificación del programa (pauta previa!. 

3, Código interno, 

4, Memoria [tilo de ATARI). 

5, Productor del software. 

6, Lugar físico en que se encuentra ídiskette o 
casete). 

7, Otros. 

Estos antecedentes conforman una especie 
de ficha para cada programa clasificado. 

Observe que estos requerimientos para cum- 
plir estas etapas han sido desarrollados por las co- 
lumnas Cassette y Diskette en números anteriores. 

Una vez digitadas fas lineas correspondientes 
para este proceso, se inicia el ingreso de la infor- 
mación de cada usuario. Pero ¿qué sucede si el 
programa se encuentra repetido?. El programa 
debe contener algún medio para establecer y des- 
cartar fa duplicidad de información. 

Para solucionar este problema propondremos 
una solución práctica: 

1. Definir el atributo diferencial y característico 

en el que no debería existir lo repetición. Para 
el ejemplo tratado consideremos ei nombre 
(que no es el más indicado}. 


2, En el campo relacionado al nombre se deli- 
mita el número de bytes. 

3, Definir el número de programas máximos [|¡- 
mitancía por capacidad económica o por es- 
pacio en el disco). 

4, Reservar la cantidad de memoria necesaria 
para almacenar todos los nombres de progra- 
mas (como un índice). 

Ejemplo: 

Cantidad de programas 100 

Bytes para nombres 30 

Total de bytes ' 3,000 

Se requiere un total de 3,000 bytes para este 

índice. 

Una forma de reserva es en una variable alfa 
numérica (string), que requiere de una dimen- 
sión previa. 

5, Preparar una rutina para crear un archivo con 
este í ndice, de manara que se mantenga la r ri- 
fo r rn a c í ó n a ct ua I del indi ce . 

6, Rutina para validar el ingreso, eliminando fa 
posibilidad de información repetida. 

El trabajo de esta rutina consiste en evaluar el 
r i u ev o i n cj r e so d e i nf or m a c ion. 




VALIDA 
I N G R ESO 


En este diagrama del flujo de a información 
adquiere una importancia vital la búsqueda de un 
dato específico dentro de un conjunto. 

Esta rutina de búsqueda será proporcionada 
en la columna USR del próximo mes r con una 
serie de posibilidades prácticas como las mencio- 
nadas en la presente columna. 

Hasta entonces. # 
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MEMORIA 



1 30 XE 



iniciamos una nueva columna para Jos usua- 
rios del ATAR i 130 XE r como una necesidad de 
programar ef banco secundario y satisfacer así las 
inquietudes de este grupo de usuarios. 


La presente rutina corresponde a una forma 
para mover datos hacía e! banco secundario, 

Dígito; cuidadosamente el listado adjunto: 

El próximo mes proporcionaremos las expli- 
caciones correspondientes y aplicaciones posibles, 

Ln esta columna se inicia asimismo una idea 
para los usuarios del ATAR I 130 XE que posean 
ademas una Unidad de Disco: formar parte del 
Club ATARl Diskette 8 bits. 

Envíe una carta indicando: 

Nombre completo 

- N ú mero de soc i o de i ATA R I CLUB 

Número de suscripto* 

con fo cual pertenecerá a este Club que ofrece 
inicialmente a sus miembros: 

Manuales para SYNCALC y SYNFILEen cas- 
tellano, a precio de fotocopia. 

Copia de estos 2 utilitarios a precio de dis- 
kette. 

Visítenos en nuestro local en Av. 11 de sep- 
tiembre 230b, local 18, o escriba a casilla 458-1 1, 
Santiago. 

Hasta el próximo mes. 


5 TAK=40?6 

7 »EW VAL m mxim DE TAM= 4096 

6 reh DEBE dinensionar la variable A$ 

9 DIN ASíTAMJ 

11 ren H rutina Rara iwver caracteres 

12 


TfTPlfUfpP 


3000 REH RUTINA para wover caracteres 
desde el banco principal hacia el 
banco secundario. 

300» reh inicializa el strxng AS o 
etiHina si proviene con data de 
otro proceso 

3@10 *$«)=*■ ":A${TAIfJ=" "¡ A$(Z1 =A$ 

3019 REH VALOR DE P0B corresponde a lo 
calizacion 54617 

3020 P0B=54017 

362» REH DETERMINA el 8L0CK del 8AMC0 
Secundario que mieve los datos, 
ver Hti-81 

3030 PflKE P0B.19J+BL0CK 

3031 REH VALORES de 8L0CK pueden ser 

0-1-2-3 

303» REH UBICACION EN EL BL0CK del 

BANCO 2 de los data en 5TRING AS 

3040 REH LOC: ? 

3041 REH VALORES de LDC pueden ser de 
0 a 16303-TAH 

3042 REH LOC corresponde a la locali- 
zación inicial del 5TRING A$ en 
BLOCK del BANCO 2. 

3049 REH parámetros para KL rutina 
HOVER 

3050 X=Ü5R (HOVER , ADR ( A $1 , LOC , T AHI 

3051 REH HOVER -local izacion HL 

rutina, 

3052 REH ADRtA$)=]ocal izan ion inicial 

de caracteres que 

nueve al BANCO 2 

3053 REH LOC =local izac ion final 

en BANCO 2 . 

3054 REH TAH -Numero de caracteres 

que nueve 

3050 REH 

3051 REH 

3052 REH TOBO EN SU LUGAR 

3053 REH 

3054 REH CARACTERES MOVIDOS 

3055 REH 

3056 REH 

306» REH TOBO NORMAL DE NUEVO 

3070 POKE ROO. 253 
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TARIOS 



Torpedo 



Esta columna permanente está dirigida a todos 
los lectores para que formen una librería con ruti- 
nas , trucos y secretos. Se aceptarán colaboraciones 
para promover el intercambio de experiencias. 
Todas las rutinas que sean publicadas recibirán un 
premio de incentivo consistente en una Tarjeta 
de Referencia A TARI que con tiene todos ios datos 
de interés que un programador debe tener a mano. 



INGRESO DE STRING 

E ¡ manejo de string es fundamental en ef ATA- 
R¡ BASIC. Comprobemos esta afirmación con ef 
listado siguiente: 

. — — — 

10 LARGOLE 10) -50B 
20 PRUT LARGO 
30 DIH AS í LARGO) 

40 A$ til r 1 #’ s AS CLARG0J : A$ (2) ~A$ 

50 PRINT AS 


Dígite cuidadosamente y ejecute. 

Este programa crea una cadena de caracteres 
oo n el largo disponible de la memoria menos 500 
caracteres. En otros m i croco rn potadores se en- 
cuentra restringido el largo de ¡os strings a un 
numero pequeño de caracteres. 

i 


Pero ¿qué sucede si modificamos la línea 40 
para ingresar caracteres en este string? 


40 PRINT "DIGITE UNA CADENA DE 208 CAR 
AGIERES" 

50 INPIIT AS 
55 P05ITIQH 0,10 
60 PRXNT AS 

: I 


Al ejecutar el programa modificado aparece 
una pantalla como indica la foto: 



Ingresando la cantidad pedida de caracteres 
comprobamos que en la variable alfanümérica 
AÍ se retiene una cantidad menor de caracteres 
corno id demuestra ¡a foto inferior, 



¿Cómo eliminar esta problemática del manejo 
de string? 

Digite cuidadosamente el listado siguiente: 


15 REH prograna para ingresar en los 
STRING un numero mayor a 133 carac- 
teres 

20 0PEN 81,4,0, ll K; ll :ftEH Asigna lOCO 81 
Al TECLADO 

30 Altt A$tl80&J ¡»EM Dimensiona la va- 
riable A$ para 1000 caracteres 
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ABC 



Esta columna la hemos dedicado para usted, 
amigo lector de MUNDOATARb que recién se 
inicia en el fascinante mundo de la computación 
personal, posibilidad proporcionada por su ATAR i. 

Para empezar veremos la solución del número 
anterior en el listado siguiente. Digite cuidadosa- 
mente estas h'neas y compare la ejecución ron el 
anterior. 


15 CMPHXC5 fi 

18 ram T "Ingres* el v*ier de A" 

28 IHPtlT A 

25 PRIHT "El valor de A en linea 20 es 

"10 

38 B-A15 

35 PRIHT ,P EI valor de B en linea 38 es 

«íB 

di C=H 

45 PRirr "El valor de £ en linea 48 es 

"jfc 

» A=R 

55 mim "El valer de A en linea 58 es 

"JA 

58 n-tn 

65 raiMT "El valor de B en linea 68 es 

w iB 

78 C=B 


75 PRIHT "El valor de c en linea 78 es 

"jC 

88 PRIHT " VALOR BE A "JA 
85 PRIHT " VALOR BE B f, ;B 
90 PRIHT 11 VALOR 8E t 
18 íi GOTO 15 


Observe que este listado es idéntico al de! mes 
anterior, salvo la línea 100 que incluye una nueva 
instrucción GOTO. 

188 GOTO 15 


Esta instrucción di recelo na la ejecución del 
programa a una nueva línea, en este caso hacia la 
¡mea 15, 

El siguiente esquema ilustra la situación: 


P ROGRAMA 

15 GRAPHICS 0 

18 


* 

>«-■■■ 

90 

100 GOTO 15 


Ejecute este listado e ingrese el valor de la 
variable A r Por ejemplo el valor 20, como lo mués 
tra la foto: 
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NOVATOS: continuación 


Al presionar RETURN, una pantalla pasa 
rápidamente, impidiendo leer los datos de salida 
de líneas siguientes, y nueva miente aparece la pan- 
talla pidiendo un nuevo ingreso para la variable A, 
Por lo tanto la solución es sólo parcial. ¿Cómo 
eliminar este problema? 

Existen varias soluciones al respecto. La co- 
lumna NOVATOS proporcionará una de ellas y 
aceptará proposiciones de lectores para su publi- 
cación en números futuros. 

Agregue al programa inicial las líneas siguien- 
tes: 


19 nn PAUSAS «13 

te pruno* "presione mmm y 

COI ItinM "¡liPIST PAUSAS 


Ejecute el programa e ingrese el valor 20 para 
fa variable A. Al presionar la tecla RETURN apa- 
recen los valores y existe un control para continuar- 
la repetición de ingresos. El control es efectuado 
mediante la tecla RETURN, 

La siguiente foto ilustra la pausa controlada 
que permite leer los valores calculados a partir del 
valor inicial de la variable A, 



Observe la importancia del mensaje editado en 
la parte inferior de la pantalla. 

Presione la teda RETURN y observará en pan- 
talla lo siguiente: 



En consecuencia, se encuentra resuelto nues- 
tro problema del número anterior, 

Pero ahora surgen nuevas interrogantes para 
usted, amigo novato, las que son muy importan- 
tes para ef progreso futuro: 

1. ¿Qué significado tiene el MMPUT ' PAUSAS? 

2, ¿Qué significado tiene el blM PAUSA$? 


Ocuparemos el programa residente en memo- 
ria, Digite fa letra C cuando aparezca el mensaje 
de ingresar un valor para la variable A. 



Presione la teda RETURN, Aparecerá ei si- 
guiente mensaje de error: 



Identifique ei tipo de error en la tabla de 
errores (consultar al respecto el apéndice del 
libro ABC No. 1 de MUNDQATAR! o bien en 
la Tarjeta de Referencia), 

Con esta demostración de su ATARE puede 
usted apreciar que hay diferentes tipos de varia- 
bles: 

1* NUMERICAS: por ejemplo la designada por 
la letra A en nuestro programa, Elias permi- 
ten almacenar sólo números, 

2. ALFANUMERICAS: por ejemplo PAUSAS, 
que almacena una cadena de caracteres o 
string, los cuales pueden ser números o le- 
tras. 

En el próximo número iniciaremos un estudio 
elemental y básico de las variables alfanurrtéricas. 

Hasta entonces, amigos, * 
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JUEGO DEL MES: 

POLOLEANDO 



100 REH POLOLEANDO 

140 ? "MNICIALlZANDO " 

150 SIN DS(l),F$((INTÍADR[D$)/2048)+l) 

*2848“ADRÍD$) “i) ,DDS(1024) ,P0$Í256) ,Pi 
51256) ,P2$ (256) , P3$(256) 

160 DIM BLS 115) , CBS (12) , CR J5 (12) i CBFiS 
Í12),CRF2S(12) 

161 SIN CRH$(12) , STK$(32> ,HT1$Í12) , HT2 
$(12),SND5(173) :HI=A»K(SS$)/256 

17® SIN GFlS (15) , GF2S (15) , DRP$ (13) , CtiR 
5(12) ,COLS»S(4) :GF1S= ,, »IKLKKPQHTURKKK" 

: GF2$=" JXXN0KR5KVMXZ í X“ 

100 REH RUTINA JOT5TICK 

190 RESTORE 200: FOR J=1 TO 32 ¡REAS AsS 

TK5(J, J)=CHR5(A) :NEXT J:STl£=ADR(STK$) 

200 SATA 104,173. 132,2,240,12,173,287, 

6,240,20,169,3, 141,207,6,240,13, 173, 20 

7,6,208,8,173,120,2,41,3,141,207,6,96 

210 REH SATA 5 (MISOS 

228 RESTARE 230: FOR J-l TO 173:8EAD A: 

SNS5 ( J, J) =CN8$ (A) : HEXT J 

230 SATA 8,60,3,70,3,80,3,90,3,100,3,1 

00,3,0,0,108,10,108,10,108,10,81,28,64 


La trama del juego de este mes corresponde 
al tierno romance de nuestro grillo Cl.YDE, quien 
al ver por primera vez a MARGARITA se enamora 
perdidamente de ella y comienza su aventura. 

Amigo lector, para conocer !a trama y el des- 
enlace de esta historia de amor debe tipiar cuida- 
dosamente et listado que sigue. Este considera re- 
cursos interesantes de programación. 

La memoria requerida para el juego es de 32 
Kb, por lo tanto aquellos lectores que poseen un 
600 XL se encuentran eximidos de la prueba. 

Los lectores de Santiago pueden visitar nues- 
tro local (Av. 11 de septiembre 2305, local 18) y 
traspasar este programa a una cinta o diskette 
personal, sin costo extra. 

Los problemas de digitación o ejecución pue- 
de solucionarlos escribiendo a: Juego del Mes, 
MUNDOATARI, casilla 458-1 1 , Santiago. 

Existe ahora una tarea para nuestros fieles 
amigos de la columna. ¿CUAL? 

La tarea consiste en describir sus experiencias 
con este juego y las impresiones personales de su 
computador ATARI. 

Hay premios para todas las cartas que ustedes 
nos envíen antes de! 30 de noviembre, en otras pa- 
labras, es una forma de ganar sus Regalos de 

Pascua. 

I lasta el próximo mes. 


,10,108,10,108,10,188,10,81,20 

240 DATA 64,10,0,30,53,10,85,10,53,10, 

96.10.53.10.96.18.53.18.91.20.102.10.1 
08,10,108,10,85,20,72,10,108,10 

250 DATA 108,10,108,10,85,28,72,18,0,5 
8,53,15,47,5,53,10,60,18,64,10,72,18,8 

1.20.40.20.0. 0 

260 RATA 121,40,91.30,91,18,91,80,121, 

40.81.30.96.18.91.80.121.40.91.30.72.1 
0,68,40,72,38,91,10,91,48,96,30 

270 DATA 91,10,81,80,8,0,243,48,243,40 
,243,10,243,40,284,40,217,18,217,40 
288 DATA 243,18,243,40,255,10,243,68,0 
,0,47,18,72,18,60,10,64,18,72,10,64,10 
,60,10,72,18,0,0 

298 Hü-IKT (ADR (5ND$) /256) : P0KE 209, HS: 
L5=ADR (5ND$) -H5* *256 1 P0KE 208, L5 : S01IND 

3. 0. 0 . 8 

309 DIF=i 

310 REH D9$ PANTALLA 

328 Dfr$ (1) ="e ‘' i DD$ (448) =“0" ¡ DD$ (2) =DDÍ 
:DD$(449)=CHR$(0) ;DD$(828>=CHR$C9) :DD$ 
C458)~DD$(449) 
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TfPiANDO: continuación 


330 LINE1=A0R (00$) +513 : HL-INT (LINE1/25 

ERT , 0: P0$ (YPDS1=0L$ YP05=YP0S-16 ! P0$(Y 

61 : Lt“LIHíl“HLlf256 ; POlfE 88¿LL:PtttCE 89, 

P051 =CR$: VERT=VERT~1 : POKE 1767+VERT,1 

HL 

570 IF 5=1 ANO VERTÍS TREN POKE 1767+V 

340 POKE 559,0;POKE 106,PEEK(748) :G8$U 

ERT, 0 : P0$ (VP051 =01$ : YP05=YPOS+16 : P0$ (V 

1 B Í140:GO5UB 133B:G05UB 1530 

P051 =CR$ ! VERT=VERT+i : POKE. 1767+VENT.l 

356 GRAPHICS 6 í POKE 559,8 :F8R X-53248 

500 P=PEEK (17911 J IF P>190 OR P<60 TOEN 

TQ 53250 íPDKE X,1:NEHT K 

POKE 1767+VERT, BiGOTO 710 

355 POKE 756 , ST RRT /256 □ GOSUB 1388: POKE 

590 POKE 53270,0 i 

559,1 8 ¡POKE 568 , 6 ! POKE 56i,G:PÜKE 559, 

600 FOR J=1 TO 10;NEKT J 

34:60511» 1718 

610 IF PEEN (532521)0 TREN PDKE 1767+VE 

368 ft^USR (1678) 1 UERT-fl 1 GQSKI8 1788:P0KE 

RT,0:GOTO 710 

88,UsPÜKE 89, HLiPDSITIOH 12,8:? DIF: 

620 IF VP05=59 ARO P>100 ANO P<134 TOE 

iRB-9 

N POKE 1767+VERT, 0: GOTO 840 

370 POKE 700,68: POKE 709,254: POKE 710, 

i 630 JP05= JPQ5+0EL J : IF JPOSIRTLJ OR JPO 

86 : POKE 711, 44: POKE 712, 72iP05IT10K 16 

5ÍLLJ TOEN OEL J= OEL J : JP0S= JP 05+2*0 EL J 

,7:? " pololeando " 

640 POKE 53250, JP05 

380 POSITIDN 2,0:? "nivel “¡RESTOBE 

550 BRCNT =0RCNT~1 i IF BRCNTÍl TOEN 6RCN 

382;FOR J-l TO 4 :READ A:COLOR$(J, JJ=C 

T=10+SN (10-OIF1 1 OPOS=50 : G05IIB 950 : P3$ t 

HR$(A) ¡HERI J 

0P051 =ORP$ ;0R0P=1 : POKE 53251, JP05 

302 OATA 220,36,4,230 

660 IF OR0P=1 THEN P3$ (0P051 =BL$ : 0P05= 

390 00$ 1613, 6521 ="’YVmyXXXXXYYrVVVXXK 

OP05+OELTA : P3$ (BP051 =ORP$ : 5011 NO 1 , 0PO5 

KKnVVVVKXKKKVVVVVlf 11 

-48,18,18 

409 00$ 1653,6921 ="YYVYYYXXXXXVYYYYYXXX 

670 IF OPOS) 240 THEN GD5U0 020:OPO5=50 

XX Y Y Y YY YXXXXKY Y Y YYY" 

600 IF PEEK (532601=0 TOEN POKE 1767+VE 

410 00$ (6931 - 1 *_• XX_4XX_4“ ) 00$ (7691 =“ab 

RT,0¡GOTO 710 

HHábKHabH" 

690 GOTO 510 

420 6N=8 : HFLE-® : 6IFT=0 i OROP-0 ¡ 00$ (5521 

700 REH 

=“XXXXXXXXXXXXXX" : 00$ (592) =“XXXXXXXXXX 

718 GOSUB 826 

XXKX 1 * 

720 P0$ (YP051 =BL$ ! YP05=YP0S+6 : P0$ (YPOS 

430 POKE 1622, 15 : 00$ (7121 “fiflS : 00$ ( 7B6 

) =CRF1$ : 50UN0 0, YPOS, 1©, 10 : FOR J=1 TO 

)=GF2$ 

30:NEKT J 

440 P05XTION 16,7:? "SELECT di f Q BOTO 

730 P0$(YPO5)=B1$: YPO5=YP0S+6 ;P0$ (YPOS 

r'lPOKE 7/,# 

1 =CRF2$ : SOUNO 0, YPOS, 10, 10: FOR J=1 TO 

450 1F 5TRIG(B)=0 TREN 450 

30ÍNEXT J:IF YPOS <240 THEN 720 

460 KEY-PEEK (532791 MF 5TRIG(8)=0 THEH 

740 SOHNB 0,0, 0,0 

588 

750 BR0=BR0+1:XF 8R0=4 THEN 1B3B 

470 1F KEV<>5 TKEH 460 

760 J=4K(BR0~11 ¡00$ (693+ J, 696+ J1 ="XXKK 

400 DIF=01F+1;IF 0IF>7 THEH 0IF=1 

" ! 00$ (769+J, 772+J1 =“\l ***• 

490 PÜ5IUGN 12,0:? 02F : GOSUB 1780 :GOT 

770 VERT=8¡GB51IB 1710: POKE 1791, 126 :P0 

0 466 

KE 1622,15:6010 510 

588 PÜSrTÍQH 16,7:? 11 POLOLEAME 

78» MM ¡ 

" : 6 09110 1000 : 00$ (7121 ="XX M : 00$ (7801= 

790 G IF 1=0 : GN=GN+1 { G4SUB 1B00:OO$C712+ 


GNH31 ="H»‘ : 00$ C788+GN*» = aa XK“ 

510 A=USR ( AOR (STKSl 1 

888 RETUJM 

520 ZF GIFT=1 ANO YP09=187 ANO P>100 A 

618 um 

NO P<134 THEH G05UB 020:GOSU0 790 

828 SOURO 1,O,0,0:P3$(OPOS1=BL$¡POKE 5 

538 IF PEEK C1743J =8 THEH FLAG=8 

3251,0iOROP=0:RETIIRN 

548 IF FtAG=l THEB 586 

838 REH 

550 5-PEEK (17431 : IF 5=2 0» 5=1 THEH FL 

840 GOSUB 828: POKE 1791,118 

AG=i : POS ( YP05Í =CR J$ : POKE 53787 , 1701 POK 

058 IF GIFT=0 THEN GOSUB 928 

E 1591, i 'FOR J-l TO 24 S KEXT J 

060 IF lrLG=l THEN 1090 

560 IF 5=2 ANO VERT>0 TOEN POKE 1767+V 

870 FOR K=i TO 10;P1$CYPDS-14)=HT1$ 
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MUNDO ATAR! 


TIPIANDO: continuación 



8BB FííR 4=15 I# 0 5TEP -1:50UK» 8,20,1 

184,133,286,184,133,265,162,4,160,0 

8, J:HEXT 4 ! Pi$ (YP05-14) =HT2$ ¡FOR 4=1 T 

1168 RATA 177,283,145,265,136,288,249, 

0 15ÜIEHT JlNEKT % 

238,264,238,286,282,288,240,96 

85B I F 5TRIG I0}=i THEÜ 858 

1178 POKE 186, PEEK (1861 ~5í 5TART= ÍPEEK í 

588 P8$ ( YP05) =BL$ : PlS (YP05-14) =BL$ ¡ 5=1 

186) *11*256 

:COTO 560 

1180 A=USR (ADR ÍZZ$) ,57344, START) ¡RESTO 

518 REH PftIHI GIF! 

RE 1288) FOR I=START*512 TO START*8B7:R 

526 GIFT=1:DD$(552)=GF1$(1, (6N*1)*3) :D 

EAR A:POKE I, A)MEXT I 

D$(59Z)=GF2$(1,(KK+1)*3)¡IF GH=4 THEX 

1190 RETKIRN 

IFLE~i 

1268 RATA 8,8,8,8,8,8,8,178,8,63,58,57 

530 RETURia 

,58,63,63,178,0,252,172,188,172,252,25 

948 REH 

t M 170 

958 S=IRTfitH»<8)*4) s RE5T0RE 958+10*R:F 

1218 RATA 8,255,170,85,178,255,255,178 

DR 4=1 TD 13! REA» A¡PRP$U, J)=CHR$(A) ! 

,8,51,33,18,33,255,85,178,8,191,239,25 

HEXT J)POKE 787, ASC(COLDR$(R*l)) 

1,254,255,255,178 

*52 REfURSI 

1228 RATA 0,255,215,215,215,198,235,17 

968 RATA 28,72,34,28,74,48,8,127,127,6 

8,0,254,251,239,191,255,255,178,8,1,32 

2 ,62,28, 2® 

,184,32,12,3,16 

978 RATA 8,0, 88,112,112,112, 112,112, 12 

1238 RATA 64,288,64,224,184,224,192,19 

@,126854,6,0 

2,116,28,3,8,8,8,8,8,288,238,248,192,1 

988 RATA 8,9,48,96,64,127,127,64,224,2 

92,192,192,192 

24,8,8,8 

1248 DATA 8,8,0,8,2,2,3,3,8,8,8,0,128, 

998 DATA 68,24,24,24,66,126,223,215,24 

128,192,192,13,55,219,222,223,55,13,3 

7j 255, 127, 126,60 

1250 RATA 112,220,247,247,247,220,112, 

955 REH 

192,8,0,8,58,234,234,233,229,0,8,0,40, 

1888 POKE 1622, 155 :P8KE 787,92;P0KE 53 ! 

234,170,154,86 

251, 124*12*01 :F8R J=1 TO 5:P3$Í285) =C1I 

1268 RATA 233,233,57,58,58,14,14,13,86 

R$:FOR K=1 TO 38¡HEXT 8 

, 90, 98, 184, 184, 168, 16E, 128,8, 3, 12, 48, i 

1818 PSS 12851 =BL$:FOR K=1 TO 38 ¡HEXT X 

92,192,48,12 

:HEKT j:returh 

1278 RATA 48,204,3,3,3,12,48,12,12,3,1 

1620 REH 

2,48,14,2,2,8,3,3,3,12,32,168,168,128 

1838 POKE 1622, 131 :POKE 53277,8) FOR 4= 

1288 RATA 8,0,0,8,8,8,8,8,233,181,173, 

53261 T8 53264 i POKE J,0)HEXT J)G@APHXC 

183,222,122,94,187,2,18,2,4,16,16,4,1, 

S 18 ¡POSXTXQK 4,3:2 «J6; "Sus priHQS " 

128, 168, 128 , 16, 4,4 , 16, 64 

1848 POSITIDH 6,*l 7 «6; "se fueron" 

1298 RATA 8,8,3,15,15,284,63,15,8,8,8, 

1858 POSITIOH 3,7:2 D6;"PRESI0HE start 

287,284,255,255,195,8,8,248,48,48,48,2 

"¡positioh 5,8:7 86;" 9 parte " 

40,240 

1863 IF PEEK (5X2791 06 TREN 1868 

1388 BATA 8,8,84,5,17,5,1,5,8,8,21,80, 

1070 6OT0 350 

68,88,64,80,17,65,1,4,4,20,0,0 

i 16 m REH 

1310 RATA 68,65,64,16,16,20,0,0,48,190 

1898 POKE 1622, 93 ¡FOR L=0 TO 6¡F0R K=8 

,179,176,176,44,11,2,80,244,52,52,52,2 

T8 3 ;PQ5=64*L*16«KtDD$ (P0SH1 ="HXKRc4 

88,64,0 

HKXHc 4XXXK" ! HEXT K:HEXT L 

1328 REH 

11BB FOR 4=1 TO 1866: HEXT 4 

13X8 RXH TOX$ (75): RESTORE 1348) FOR J=1 

1118 POKE 53277, 8:F0R 4=53261 TO 53264 

TO 75 ¡BEAR A:VBX$(J, J)=CHR$(A) ¡HEXT J 

¡POKE 4,8:ttEXT J: GRAPHICS 18)P85ITI0H 

: V0I=ADR (VDI$) : RETUfiH 

3,3:7 tt6; M y vivieron “ 

1340 RATA 216,162,0,168,0,222, 240,6,16 

1128 P0S1TIBN 1,4:? «{“Felices sienp 

,42,189,224,6,157,240,6,189,232,6,248, 

re ":68TB 1858 

10,24 

1110 REH 

1358 BATA 173,255,6,125,248,6,141,255, 

1148 DIN ZZ$ (32) í RESTORE 1158:F0R 1=1 

6,24,185,16,6,125,216,6,153,16,6,221,2 

TO 32:READ A)ZZ$CX}=CHR$(A} :HEKT X 

08,6,288,6 

! 1158 DATA 184,184,133,284,184,133,283, 

1368 BATA 189,288,6,153,16,6,288,288,2 
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TIPIANDO: continuación 


66,232,224,7,144,201,173,255,6,141,0,2 

1610 DATA 195,36,68,90,60,152,124,26,5 

#§,32, 57, 6,32, §@,6,76,98,228 

7,36*190*6 

1370 REH 

1620 RESTORE 1630 ;F0R 4=1 TO 12:READ A 

1IH RESTORE 1196 ¡FOR 4=1536 TO 1679 íR 

:CRK$(4, J1=CHR$(A1 íttEXT 4 

EAD Ai POKE J.ArREJTT J 

. 1630 DATA 66,165,60,90,36,24,126,153,6 

139* MIA 112,112,112, 76, 6, 6, 66, 28, i, 6 

6,126,36,102 

8, 6§, 0,69, 1§8, 8,69, §,*,69, 86, 8,69, 128, 

1640 RES f ORE 1658; FOR 4=1 TO 12rRM> A 

6,69,268,6,69,8,6,69,86,6 

i til 1$ ( J, J) =CHR$ (Al : XEXT 4 

1468 DATA 69,128,0, 69,148,0,68,180,0 

1658 DATA 0,216,240,248,112,32,0,27,31 

1410 DATA 68,0,0,70,40,0,68,0,6 

,31,14,4 

1420 DATA 0,0,0,6,0,0,172,55,6,246,23, 

1660 RESTORE 1678 :FOR 4=1 TO 12: READ A 

286, 56,6, 16, 18, 177, 268, 141, 6,210,206 

:HT2$(J,41=CHR$(A1 :HEXT 4 

1430 DATA 177,208,246,5,141,56,6,206,1 

1670 DATA 0,27,31,31,14,4,0,216,248,24 

52,141,55,6,96 

8,112,32 

1440 DATA 8,6,172,86,6,248,40,206,87,6 

1600 RESTORE 1690: FOR 4=1 TO 12: READ A 

,48,17,169,13,285,87,6,144,3,173,87,6, 

iCIIRS (J, 41 =CHR$(A1 : 8 EXT J 

9,168,141,5,210,200,16,177,208 

1690 DATA 68,238,254,254,254,254,254.1 

1458 DATA 141,4,216,200,177,208,240,5, 

24*124*66*56*16 

141,87,6,206,152,141,86,6,96,104,168,6 

17bs mn 

,162,0,169,7,76,92,228 

1710 P0$ (1) =£«R$ (61 : P0$ (2661 =CHR$ (01 : P 

1460 RE5T0RE 1471: FOR 4=1541 TO 1583 5 

0$ (21 =P0$ ; VP05=187 ¡ P6$ (VP0S1 =CR$ 

TEP 3:READ A : POKE J, HI+A : REtíT J 

1720 Pl$ (11 =CHR$ (6) : Pl$ (256) =CHR$ (01 :P 

1478 DATA 2,2, 2,2,*,0,0,8,1, 1,1, 2,2,3, 

1$ (21=P1$ :P2$(11=CHR$ (01 : P2$ (2561 =CHRÍ 

I 

(01 :P2$(2I='2$ 

1480 RESTORE 1490: FOR 4=1738 TO 1791 :R 

1730 P3S (11 =CM$ (61 : P3$ (2561 =CHR$ (01 :P 

ríprke j'Uimn 1 * j 

3$ (2) =P3$ : Pl$ (6*1 =CRK$ : P2$ (441 =CR$ 1 4P0 

1496 DATA 0,80,128.268,0,80,120,0,16,6 

5=108:D£L4=3:RTL 4=200 : LL4=50 ¡ DEL T A=6 

4,144,192,16,64,144,6,1,255,1,255,1,25 

1740 POKE 54279, HI: POKE 559,62:'<*0KE 53 

9* 1 , 0 

277,3:P0KE 53248 ,120: POKE 704,li6:PDKE 

1560 DATA 28,12,9,12. 15,18,21,6,0, 8,0, 

53249, 126: POKE 705,92 

0,0,8,6,0,20,12,9,12,15,18,21,0,252,4, 

1750 POKE 53250, 100 ¡POKE 786,20: POKE 7 

252,4,252,4,252,126 

07*8; POKE 623*1 

1516 HV=IHT(VBI/256):POKE 1674,HV¡P0KE 

1760 ftETURN 


17 7« Rtn 

1520 RETURH 

1700 DD$ ll)= ,, e ,, :DD$(448) =*'*■■ :D&$ (21 =DD 

I52S 0EM 

$ 

1536 RESTORE 1548: FOR J=i TO 12 : READ A 

1790 FOR 4=176® Ti 1766:SPEED=RND(01*( 

: CRÍ í J, J) =CHR$ (Al : XEXT 4 

9-DIFI*4*(7 - DIF> :XF DIF>3 THEM 5PEED=S 

1548 DATA 231,60,90,60,24,68, 90,153,28 

PEEft*l*ft 

,36,36,162 

1732 POKE J*SPEEP:HEXI J 

1550 RESTORE 1560: FOR J=1 TO 12: READ A 

1800 FOR L=t TO 6; RESTORE 1850+10*1. : RE 

: CR 4$ ( J, 41 =CHR$ (AI : XEXT 4 

AD F$:FOR K=0 TO 3 

1560 DATA 66,36,60,96,60,153,126,24,24 

1010 PQS=64XLH6*K:DD$(P0S*IDi:F$ 

,60,66,195 

1620 XF DIF>2 THE» DD$(P05+91=FS 

1570 0L$ (11 =CMR$ (0) : BL$ (131 =CHH$ (01 : DL 

1846 REXT K;HEXT L : RETIIRM 

$ (21=01$ 

1050 DATA ACO 

1580 RESTORE 1590: FOR 4=1 TO 12: READ A 

1866 DATA EX© 

: CRF1$ ( J, 4) =CNR$ (Al : NEXT 4 

1079 DATO OOP ! 

1596 DATA 195,36,60,90,61,25,62,08,156 

1800 DATA gal 

, 36, 38, 96 

1930 MIA EFfi 

1608 RESTORE 1610: FOR 4=1 TO 12: READ A 

1900 DATA SB 

:CRF2$(4, J1=CHR$(A1 :NEHT 4 

1310 MTA EF£ 

L - 


MUN DO ATA R I 




90 «EXT CT 

1M ? " DESEAS OTRA 5 O K" 

lli IF PEEtCC764l=62 THE* POKE 764,255: 

COTO 16 

126 IF PEEK(764J=35 THE» ? "CHAO. . .":E 

NA 

138 COTO 116 

568 ? "NO ESCRIBAS LOS NUKROS CON PAL 
AURAS": FOR G=U TO 560 i NEXT C 
516 COTO 10 


CUESTIONARIO 


Avanzando 


Este mes continúa fa columna con co /abo ra- 
ciones de lectores de MUNDO A JAR i, que nos 
han enviado sus programas con todos los requi- 
sitos pedidos. 


VUELTA A MULTIPLICAR 

Nuestro deseo de estímulo permanente se 
demuestre el publicar otra versión de las tablas 
da multiplicar. Su autor es Manuel Andrés Báez. 


6 CRAPRICS 2+16.P0KE 752,1 

1 REH PRESENTACION 

2 ? M6 i "MULTIPLICACIONES" 

I ? t»; "POR: MANUEL BAEZ» 

4 FOR C=6 T0 IHiPOKE 788, INT CRN» I8)*2 
66 FU ¡NEXT C 

16 2 “COMIENZO" ; CRAPHICS 6 i PONE 716,15 
:P0KE 709, Oí PURE 752,ltP0KE 82,6 

II ? “«BE TABLA AE5EA5"; STRAP 566 
26 IMPUT T 

46 PRINT "DESBE 01E MINERO HASTA (MIE N 
UÑERO W 

56 PRIHT "PRIMERO"! ¡IHPIIT P>N 

68 PRIHT "SEGUNDO"; : IHPUT SN 

78 PRIHT "DE CUANTO EN CUANTO"; ÜNPHT 

st ' .j . i ' e ' , : ' 

72 PRINT “AQUI ESTA LA TABLA DEL ";T 

71 FON CT=PU TO SU STEP ST i TRCT=T«CT 
80 ? Tí"ie",*CT;"=";TXCT 
85 FOR E=8 TO 388INEKT E 


Este programa permite demostrar la capan 
dad de interacción con nuestro ATARI, Su autor 
es Claudio Millapel Muñoz, de Puerto Montt. 



1 REH CLAUDIO MILLAPEL MUÑOZ 

2 REH RIO COLEGUÍIL ti 12 

3 REH P06L . PICHI PELLUCO 

4 REH PUERTO MONTT 

7 DIM A$ 1288) , 8 $ (200) , CS 1268} , D$ <2881 , 
L$ (208) 

18 C-6tFOR 1=1 TO 3 
20 REA» A$,8$,C$,»$ 

38 PRINT “6" 

46 CRAPHICS 2 
56 PRINT 06] A$ 

68 IUPUT L$ 

78 IF L$=t$ INER LET C=CF1: PRINT “6":G 
RAPHICS 2 i PRIHT N6;D$:F0ft 1=1 TO 2S88: 
NEXT J ; GOTO 96 

80 PRINT “K": GRAPHICS 2 t PRIHT N6;C$:PR 
INT (86; "LA RESPUESTA ES :",B$:FOR J=1 
TO 2000Í NEXT J 

90 NEXT I 

91 PRINT "H": GRAPHICS líPRINT N6;"BUEN 
AS í";C;PRINT M6; “MALAS :";2-C:FOR P= 

1 TO 2068: NEXT P 

188 DATA SI MILTIPLICAS 2*5 Y LO SUMAS 
CON 30 Y LO DIVIDES POR 2?,26,£NC0RRC 
CT0,8IEN 
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PROGRAMAS: continuación 


ltl PATA CHAL ES LA CAPITAL PE CHILE*. 
SANTIAGO, NO SABES NAPA.NIY BIEN SABES 
BASTANTE PE GEOGRAFIA PE CHILE 
IBS PATA CUAL ES LA CAPITAL PE LA * BE 
GIOH?, PUERTO HQN T T , IHP 0 5 I8LE . ESTUPEHPi 
SE NOTA RUE ESES MUY INTELIGENTE 


MENSAJES POR PANTALLA 

Esta es una rutina muy útil para iniciar pro- 
gramas con un bonito mensaje en colores. Su 
creación pertenece a Miry Cornejo Correa. 


CALCULO DE PRESUPUESTO 


Este programa simple de aplicación muestra 
la versatilidad de nuestro ATAR!, con Sa creación 
de Cristian Arenas Aragón. 


«WtíLMePÜ l 
mCfeLStt »E I-UEIYÍ*** 

MVis IC AÍBA'-Wt 
IfcGGRt^F- &ASTP tfc^!YL**Ú 
incoe su tfrMH AL rntroNOiTMA* 
m&RLSE C 43 IHJHE* ! TI 6 AA 


ÍUtAt'lL IrlHtPtt MM-OlíE*LElTr 06 *O 




1 REH PROGRAMA: RUTINA PE IENSAJE 

2 REH HIRV CORNEJO CORREA 
I REH SOCIO N 06-75-3000-1 

4 REH VILLA LOS CISNES * PATACON 567 

5 REH * CUBICO * VII REGION * 
li * “A" 

20 CLR :PKH K$H2Dl , K$ (20) ■ PS 120» . Y$t2 
•1 . Z$C20> , HSC115Í 

so ks- m -“= tí s“="- s u =**= y y — ,a 

40 HS-" 1 RUTINA OE MENSAJE PARA SER AP 


APTAAD A SUS PROGRAMAS «■ PARA fiKUayATA 


RI 


>TftRT 


PARA EMPEZAR * 

60 US ILER (H$) *11 =M$ 

70 IF LENCH$)<20 TNEB F©R C=1 T® 20“LE 
N(H$»:N£XT C 


00 PIH A$(LEN(tt$»,Cf(LCNCX$l);A$-N$ 


5» GRAPHICS 1B:Y$=H$ 

li* PRSITION o.l:? fflSjHStl,20» :P$=H$I2 

1 ; PS (LEN CPSl *11 -M$ l H$=P$ 

110 POSITION 0,7:? N6iYSfl,20»:Z$=Y$l2 
l:Z$ÍLENCZ$»+L>-Y$:Y$=Z$ 

120 POSITIVA O.Ní? »6J A$a,ÍOI :C$^ASt2 
) :C5 CLEN IC5I *11 =A$ ! AS-CS í K=PEEK I53275J 
130 FOI T=1 TO 40 t PONE 77,0¡SETC0L0» S 
NT CRNPC0>*41 . INTCRNP 101*16» ,8: KF K <>S 


TREN 100:IF N=6 THEH 140 


140 GRAPHICS Oí? “ EMPIEZA PROGRAMA 
PRINCIPAL** I FBR H=1 TO 500;NEKT HSGOTO 
10 


49 REH «* CRISTIAN ARENAS ARAGON *» 

50 PONE 710, 9: PONE 752,i;P*KE 16,64:P0 
KE 53774,64 


CALCULO DE FTFUF'Ü 


HJW 

140 * 

200 ? 

250 ? “ INGRESE GASTO OE ARRIENDO!"; :I 
NPUT Ai? 

300 t ” INGRESE GASTO OE LUZ : IHPUT 

»:? 

500 ? " INGRESE GASTO OE AGUA:"; ;INPUT 
C(? 

700 T “ INGGRESE GASTO PE GA5:“¡ 5 IHPUT 

»í? 

900 Y ** INGRESE GASTO PE TELEFONO r'*} íl 


NPUT Fl* 

1010 ? ** INGRESE GASTOS COMUNES:"} HNP 
BT F:? 

1100 R=A*B+C*0*E+F 
1250 ? 

1300 Y " INGRESE PINERO DISPONIBLE ;"j 
135S IHPUT Ni? 

1408 IF TOTfcH THEN 1508; GOTA 16B8 

15B0 K=M-N!IF KU THEN Y=KtK=¡3:G0T3 17 

BB 


16B0 Y=0 
17B0 * "6" 

ISBA P0SITI6N 8,8;? "TOTAL A PAGAR 1"| 
R 

1900 POSITION 8,12:? "SALDO A FAVOR t" 
iN 


2MB 

:";Y 

2100 


P8M7XW8,16l? "5ALD6EN -CONTRA 


posiuon 2,20:? " presiono 



■ paro realizar otro calculo,* 1 
2200 IF PEER 153279) 06 THEN 2288 
2388 GOTO 5» 
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MUNDOATARI 









UTILITARIOS 



46 NUM=0 :REM Asigna variable NBM como 
contador 9 la inicial iza a cero 

45 ? CHBÍQ253 ¡P05ITIÜK 0,4;? 



una cantidad Mayor que 133 
caracteres" 


40 POSITI0N 5,6:? "PRESIONE 


Retur n 



finalizar" 

50 G05UB 200: REH Subrutina de ingreso 


por teclado 

60 ? CHR$ÍI25J :P0KE 84,4:? AS :.REM edit 
a el contenido de A$ 

70 P0 SITIAN 0,0:? " INGRESARON "jLENtft 
$);** caracteres en AS ” 

80 POKE 18,0:PDKE 19,0 
90 IF PEEK Í191 (2 TÍIEH 90 
100 GOTO 10000 

200 REM Subrutina Ingreso por teclado 
210 AÍ-“": REM Inicial iza AS para un S 
string vacio 

220 GET Hl , A : REM Asigna a variable A 
el valor de ATA5CII para tecla pre 
si onada 

2?0 IF A<>126 THEN 260: REM Verifica si 
tecla presionada es vnrafí 
240 IF NUM=0 THEN 220: REM EliMina el 
borrar cuando el STRIMG es nulo 
250 NUM=miM-i:IF NIIM=li THEN ft$= ,m :G0TÜ 


300:REM resta i a variable KllM para 
borrar el carácter del STRING 
268 A$=A$(l,NliH) :GOT0 300: REM Borra el 
carater de String, usa subscrípts 
280 IF A-15S THER ? sRETURN ¡REM Veri- 
fica si tecla presionada es HEH333 
298 NIIM-NI1H+ 1 : REM Incrementa en 1 a va 


riable contador 

295 A$fHliM]=CHR$(ft] :REM Aplica función 
CHRS para ingresar el carácter co- 
rrespondiente a atascxi en string 
300 ? chrScai ; :REM Edita en pantalla e 
1 carácter ingresado a STRIHG 
310 GOTO 220: REH continua ingresando 
caracteres sin linite 


10000 GRAPHICS 0:POKE 82,0 


10010 P05ITI0N 0,8:? '1 


e encuentra en RAM 


ESTE programa s 


puede LISTAR 


MODIFICAR UTILIZAR etc IE 


10820 EMO 


Ejecute e ingrese la cantidad de caracteres que 
desee, y la dificultad habrá sido superada. 

Hasta el próximo mes, con lina nueva rutina 
en el manejo de string. • 


PARTICIPANDO 

Este rnes recibimos la contribución de tres 
amigos del A TARI 800, provenientes de Maipú, 
que cooperan con un túnel maravilloso para pe 
netrar en [as profundidades gráficas de tu ATAR . 

Ellos son: Andrés Ayaía y Borís Vésquez del 
Colegio Peter College y Cristian Jaque del Colegio 
Don Orione. 

Para salir de la duda dlgite cuidadosamente 
el siguiente listado: 


5 REM PROGRAMA EL TUNEL 

10 GRAPHICS 8 

20 0EG 

30 COLOR 1 

40 TRAP 10 

50 SETCOLOR 2,0,0 

60 ? "RUE GLOSE 0E TUNEL RUIERES? 140-1 
201 " 

70 IHPUT « 

88 FOR A-i TO 75 

90 PL0T 5lNÍN*A)*AU55,C05CN*A)*At73 
95 SOUN» 3, 0F4, 12, 8: SOUNO 0,N/2,12,4 
188 ORAHTO 5INtN*íA*ill*A*l5S,C0StN*<A 
+11)*AF78 

185 FOR 1=15 T8 25S58UN0 1,1*2,18,18 

187 NEXT I 
118 HEKT A 


Para construir una estrella digite 215, 20 y 
podrá apreciar una como en la foto: 



Agradecemos la visita de este grupo de ami- 
gos y esperamos que otros sigan su ejemplo y ga- 
nen un juego para su colección. 
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□ ISKETTE 


Dominando 

la 1050 


Iniciamos ía columna con la primera interro- 
gante planteada en el número anterior: 

Modificar el listado que edita al AMIGO en 

pantalla, ahora para un grupo de 50 amigos. 

Primero debemos modificar el prograina Ciclo 
ingreso de registros de la página 17, en la linea 40. 
para abarcar los 50 amigos. 

Ejecute el programa para crear un archivo en 
el diskette con los 50 amigos. El esquema siguiente 
ilustra lo ejecutado: 




50 


Ahora, para recuperar los 50 registros desde 
el diskette hacia la memoria digite el listado si- 
guiente: 


10 BiM LOC$f40), CAMPOS t30) 
2* REG-i * CAMPOSE : CUENTA-A 


3800 CLASE 02 
3005 TRAP 3100 

3010 OPEN 02 ,4,0, “Ai AMIGOS. 0AT" 
3020 GRAPHICS AiPOSITIQN 0,0:? “ 


1350 


HUNDO&TftRI 


0KE 82,0: POKE 752,1 

3825 CUENTA-CIIENTAT1 : £F CUENTA>CAMNft 


THEM 3085 

3030 IHPIir t»2,LOC5 

3035 RE5T0RE 3090+CIIENTA: REA0 CAMPOS, L 
IRE A 


3048 P0SITION ©, LINEA:? CAMPOS: POS I TIO 
N 9, LINEA;? 

3050 P05ITI0K 18, LINEA;? LOCS 
3880 GOTO 3825 


3895 PO5ITI0H § f 20:? '1 

DESEA UER OTRO 

AMIGO digite s/n 

f‘;:INPUT R$ 


3090 CUEN TALA; IF R$="5** THEN 3020 

3891 oata mmm .4. 

3892 MTA K§,6 


H0M6RE 


DIRECCION 




3 §93 MITA 
3994 DATA ffiMEiíB 
3095 A ATA HifMiTO .l? 
3108 CHA 


Ejecute el programa y observará lo que mues- 
tra ía foto siguiente: 
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De esta forma se resuelve el primer problema. 

Un desafío con premio para nuestros lectores: 

Indio ue la líneas con modificación y su co 
meniario correspondiente en relación al lis- 
tado del mes anterior, a columna De Byte en 
Eiyte, casilla 458-1 1 , Santiago. 

La segunda interrogante del mes anterior 

El listado para amigos internacionales consi- 
dera las modificaciones siguientes.: 

Digite el listado siguiente: 


18 DIH CQDES (3), HOMBRES (38), DIRES (30), 
CIUDAD* (28) , TELES IL2Í , PAIS$ (20) 

20 605UB 1080 
40 FOR J=i T8 10 
45 GOSUB 2800 
60 HEXT J 
78 CLOSE tU , 

168 ERO 

1808 OPER ttl,8,B,“D: ANIG05I1. DAT“:RETU 
RH 

2008 REH INGRESA UN REGISTRO 
2810 GRAPHICS 0 

2020 PRIHT "INGRESA EL CODIGO "¡INPUT 

CODE $: PRIHT »1 ; CODES 

2038 PRINT "IHSRESA EL HONOR! "¡IRPIÍT 

NOMBRES ¡PRIHT #1; NOMBRES 

2040 PRIHT "INGRESA DIRECCION "¡INPltT 

AIRES: PRINT ai; DIRES 

2050 PRIHT “INGRESA CIUDAD "ÜHPUT CIO 

DAOS: PRIHT Bl; CIUDAD* 

2055 PRIHT "INGRESA PAIS "¡IRPIIT PAI 
SS ¡PRIHT »1;PAISS 

2060 PRIHT "IBGítESA TELEFONO "¡IHPHT T 
ELE$¡ PRIHT Hl; TELES 
2880 RETURH 


[ jecute c ingrese los datos de 10 amigos ínter 
nacionales. 

Digite el listado siguiente: 


10 DIM 10C$ (48), CAMPOS (30), R*íi) 

20 REG=1 :CAMP0S~6¡C0ENTA=B 
3808 CLOSE «2 
3805 TRAP 3100 

3010 DPEH ttZ,4,0,‘"D: AMIGOSIT.DftT" 

3028 GRAPHICS 0;P0SITIQH 9,0:2 " WiEM 


HUKAOATÚRI 


0KE 82,0 ¡PONE 752,1 

3025 CtlENTA=CUENTA+l:If CUENTA) CAW05 

THEH 3085 


3030 INPUT B2,L0CS 

3035 RESTORE 3890+CUENTA ¡READ CAMPOS,! 
IHEA 

3040 PQSITI6X 0, LINEA:? CAMPOS: P05ITI0 


H 9, LINEA:? 

3050 P8SITI0N 18, LINEA:? LOCS 
3088 GOTO 3025 
3085 P051TI0H 0,20:? 


DESEA YERO 


E 


HIGO DIGITE S/N 


Eli 


; : INPUT R$ 


raaa píjcutá- í’ TF THF6I 30? 8 


ceciGO 


HOMBRE 


,4 

,6 


309Í DATA 
3082 DATA 
3893 DATA EMflíSS'fJ, 3 
3024 DATA [31MB, 10 
3095 DATA USB. 12 


3096 DATA 
3100 END 


TELEFONO 


,14 


Ejecute y rescate ios 10 amigos ¡ ni tir naciona- 
les desde él diskette. 

E : p r ó x i 37 ) ü r i ¡ es tú n l í n i i a * a c o u fin n a co f 1 el 
siguiente desafío: 

¿Cómo moficar eí nombre efe uno de ios ami- 
gos ingresados anteriormente? 

Hasta el próximo mes. • 
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Controlando 
la casetera 


SOLUCION DEL NUMERO ANTERIOR 


So t u c i o n es i ía y va rías. La 1 1 u est r a es s á n c rila y 
prá ct i ca . D ig i te las 1 í neas: 

Hay una razón práctica para considerar fa op- 
ción de término del programa. En la forma actual 


10 DIH TEL$ (SI , CIUDAD? 110) 

él sé mantiene en un ciclo sin fin , de i cual se puede 


20 ? "^'¡PÜSITION 2,5 

salir sólo con BREAK o RESE T r 


Sfl ? 1 

Digite para este fin tes seguientes lineas: 


40 PÜ5ITI0H »,S: IHPUT TELÍ 

465 ?: 7 , J '|3) Finalizar" 

490 IF N <dOR H > 3 THEN 420 


50 ? :? "Cindail:**" ' * * ' ‘ 


66 PDSITIOM J, 7: IHPUT CIUDAD? 

530 ON N GOTO 10, 200 p 550 

550 END 


70 ? :? TEL?, CIUDAD? 


En el número anterior vimos como el uso (Je 
un menú de selección permite manejar con más 
facilidad las rutinas iniciales de grabación y carga 
de datos. A su vez , la incorporación de una rutina 
de validación de ingresos permite controlar con 
mayor seguridad la Información que se envía al 
casete para su almacenamiento. 

Esta vez trataremos otros púntasele optimiza- 
ción para el archivo que estamos desarropando.. 

LONGITUD DE UN CAMPO 

Digite las próximas líneas para aclarar el pro- 
blema: 


ü PIH TELStft) , CIUDAD C13J 
2 0 ? "«":P05lTiaiÍ 2,5 

jf ? "Telef , : **¡ 

40 INPUT TEL$ 

50 ? ;? ^Ciudad; 

50 IHPUT CIUDfi&S 
7« ? :? TEL$,CItISft0í 


Ejecute el programa y conteste las preguntas, 
¿Qué pasaré si usted ingresa ahora el número 
G32-5542P y la ciudad de Arito i agasta? 

Lógicamente esto no hubiera sucedido, si al 
diseñar et programa se hubiera considerado todas 
las posibilidades. Pero aún así, es bastante útil ya 
ber anticipada mente- el largo de los campos a ingre- 
sar. Sobre todo cuando los programas aumentan en- 
nú rn ero o los ■ r ra neja otro u s ua r i o, i n tur esa b a ce r 1 os 
autoexplicatívüs. 



NOTA: La secuencia de flechas se obtiene <Je la siguiente 
manera: ESC/CONTROL/ i y ESC/CONTROL/-»- 
Los puntos siguientes son apostrofes que se editan 
con SHiFT/7, 


CONTROL DE SALIDA 

I loy ampliaremos algo un par de recursos qué 
usamos en el número antei ioi : 


1. CONTROL/1 es un recurso para detener la 
ejecución de un programa o un listado. 
Experimentemos un poco con estas líneas: 


5 ? CHR$(Í25> 



40 2 FEEKC20); 
50 COTO 46 


ir* 

* 



IV1UNDQATAFU 








CASSETTE 


Digíte y ejecute el programa. Luego familia- 
rícese con al uso de CON! ROL/ 1 . 

2 . O t r o recui r s o p a re es f i o i a r al usli a r i o es e l a pil- 
cado en la J mea 300 en el número anterior: 

INPUT A$. 

La c I a v e d e es t a instn j .c c i ó n co n sis tu en i n g ra- 
sar cualquier información de 1 byte de largo, o 
h i en , s i m p le mente presi o na ? R E T U R N . I I co nte n i - 
do no interesa tanto corno la pausa creada hasta 
que el usuario esté dispuesto a continuar. 

Combinemos ambas técnicas para demostrar 
su utilidad real: 


273 PÜKE 32, e:? CHR5U25J 
275 ? "Codito- ":? “#&Mbre= 11 :? M í>irec 
M :? "Ciudad- "Telef M 


276 P^KE 82,8 

286 P0SITI8H 8,1:? CGfrEí:? «6M6RE$i? D 
IÜEÍS? CIli&A&í:? TEL£$ 


283 ? s? 

; : IféPílT 8$ 


ra se 


nrus*' 


5 ? CHUS 11251 
10 DIM A$ Cl) 


20 ? 

GH3" 

36 ? 


41 


Presione CTRL-i 


Presione retukH 


I 11 1 í 


35 INPUT A$ 

40 ? PLEK128) "J 
50 COTO 40 


■E 


ra parar o se 


0 


EaxHSfim 


En i a foto siguiente se observa el efecto de 
las .Instrucciones descritas ' luego de detener el 
programa. 



PRESENTACION 

La .información que cargamos desde el casete 
carece de encabezamientos en pantalla. 

La col u -moa Do i n inando >.i 1 0 50 en i regó una 
solución en MUNDO ATAR! No. 5. página 25. a 
base de DATA numéricos y alfa numéricos. Esta 
es igualmente aplicable en nuestro caso. 

Para ampliar el campo de posibilidades de so- 
lución ofrecemos otra que se fundamenta en el 
uso de la localización 82 (ver en MUNDOATAR \ 
No, 0, página 34). Esta localización modifica la 
ubicación del margen izquierdo de la pantalla. 

Incorpore las siguientes líneas al listado del 
número anterior y podrá apreciar el efecto: 



En la columna 0 el computador escribe ios 
e 1 1 ca b ezamientus, y en la 8 I o s c o riten i d c ) s . 

Co 1 1 lo ei ' r iót I e I o (Je a re 1 i i vo q ue el esa r ro 1 1 a 
rnos pretende ser sólo una guía para as ñecas i 
dados de cada lector, usted podrá aplicar áitlós 
nuevos aportes a sus propios modelos y en a 
medida que fe sean útiles. 

Hasta el próximo rnes, • 
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TUTORÍA 




I ' !■ 


Guía 

BASIC 


1 REH L DRENA PALOMO 

2 REH ZAPADORES 563 

3 REH VILLA LA PIRAMIDE 

4 REH CANCHAL I SANTIAGO 

5 REH Rwmwwm i tHMtm t mH t 

1© GRAPHICS 7iFOR T=i TO 4: COLOR T 
15 DEG 

20 FOR H=0 TO 360 
30 X=80+39ttSIN íNÍ 
40 T=40430NC0S f H) 

SO PLOT 80, 40:DRAHTO X,Y 
60 PLOT X, Y 
70 NEKT M 
80 NEHT T 
90 GOTO 18 


LETRERO 

Contribución de Rolly Garcés Martínez de 
Osorno, que desplaza títulos. 



A continuación veremos nuevos programas 
de contribución de nuestros lectores: 


DIBUJANDO UN CIRCULO 
EN MODO 7 

Contribución de Lorena Palomo de Con- 
chalí, Santiago, que recibe de estimulo el progra- 
ma 60 rutinas para mi ATAR! BASIC. 

La ejecución del programa se ilustra en la foto 
siguiente: 


1 hEM awwmniM LETRERO KM»*»» 

2 REH *** POR! ROLLY GARCES * 

3 REH ** PARA HUHDO ATARI 

4 REH ** HOVIEHBRE 1987 **** 

5 REH KMKKMMMKR R K I HMMKRM I tKEW 

6 REH 

10 DIH Q$f98) :GRAPHICS 1:P0KE 752,1 




12 R$=" ........... "iPOKE 718 

,46:PDKE 752,1 :P0KE 789,1 

13 OSfíl)-” HHNDOAT AR X..N0VI 

¡ 
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TUTORIA 


EHBRE «87....... ":P0KE 752,1 

14 #5 ÍLEU «Si *1) =" " 

15 FOR TO=i TO líFOR 1=1 TO 67:F0R 5=6 
TO 15:NEXT 5 

15 50UND 2,1, 14,6: 5011ND 0,IU8, 14,2¡P0 
KE 712,113tP0KE 752,1 

17 FOR T=» TO 68: HERÍ T 

18 PO5ITI0N 0, 19 i? B6>05tI,IT17) 

19 REXT IfNEXT T0:50HND 0,B,8,B:SO1IND 
2,8,9,» 

2B FOR T=8 ¥9 698: REXT T:M=8 


65 OATO L05 COSACOS, LEOR TOL5TOI 
79 OOTA EL SOCIO, JENARO PRIETO 
88 DATA EL DUELO, J05EPH CORROO 
85 DATA COLMILLO BLANCO, JACK LONDON 
98 DATO TOM SAHYER.MARK THA1H 
95 DATA EL PROCESO, FRANK KAFKA 


El premio de estímulo es el programa 40 ru- 
tinas para gráficos de Ses Sistema. 


FIGURA MAGICA 


El premio de estimulo es el programa Inte- 
rrupción de Lista de Despliegue de Ses Sistema. 


TEST DÉ LITERATURA 

Contribución de Arnérico Albornoz, de Los 
Angeles. 

La particularidad del programa es que permite 
interactuar con el ATAR! acerca de literatura. 



1 REH TEST LITERATURA 

2 REH AMERICA ALBORNOZ 

3 REH LOS ANGELES 

4 REH « « M ** HM ** tt X W tH Ht* 


18 GRAPHICS O : POKE 710,8:PDKE 752,2 
15 PÚSITIQN 0,2:? “ 


TEST L ITEPúTURü 


IB * 


DIH AS 130) , S$ 130) : RESTORE : FOR A=0 TO 
7:READ A$,S$ 

25 POSXTION 2,8:? “ OUIEN ESCRIBIO "JA 


Si? :INPUT A$ 

30 IF AS=5S THEN ? :? ••CORRECTO" 


49 IF ASOSS THEN ? "INCORRECTO FUE ’• 


;5S 

50 FOR T=9 TO 699:HEXT T:? “*":NÉXT A 
60 DATA ALSINO, PEDRO PRADO 


Contribución gráfica en Modo 8, de Cristian 
Ramírez, de Concepción. Utiliza la fundón ran- 
dom, por lo que su ejecución varía y produce fi- 
guras diferentes. 


; 

5 REH FIGURA MAGICA 

6 REH CHRISTIAN RAMIREZ 

7 REH CONCEPCION 

19 REH 1HHHHHHHHHUHHHHHK 

20 GRAPHICS 8U6 

38 SETCOLOR 1,8, 15: COLOR 1 
48 SETCOLOR 2,RHD(8>*16, 6 
58 SETCOLOR 4,RNP(8)*16, 6 
68 REH POSICION PARTIDA V CTE 
78 X=RND(0)*389.5H.5 
88 Y=RHDf0)*185.5+2.5 
98 AX=RNDÍ0)*50+5:AY=R8DtB)*5OL5 
188 PLOT X,V 

110 REH VEL. DESPLAZAMIENTO 
128 0X=WXFC159,5-X)/ r AM:X=X+0X 
138 VV=imi95.5-V)/AY:Y=Y*VY 
140 DRAHTO X,Y 
150 GOTO 128 



El premio de estímulo es el programa Ruti- 
nas para USR de Ses Sistema , para que continúe 
con el progreso de su ATARI 800 XE. 
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TUTORÍA: continuación 



OTRO CÍRCULO 

La última contribución es la de Rafael de la 
Maza Rodríguez, quien también incursiona en 
Geometría. Su estimulo es el programa 60 rutinas 
para mi A TA R I BASIC. 


1 REtt OTRO CIRCULO 

2 SEN RAFAEL DE LO HAZA DOMINGUEZ 

4 REH SOR LAURA ROSA 261 LAS CONDES 

5 REM SAKTIAGO M H KHKMKKHHMKftXItMKMHKH 

9 DXH 5$tll 

10 GRAPHICS 7 

20 5ETCOLOR 4, 8, 14: COLOR 2 
30 ? “ DIBUJANDO UN CIRCULO" 

35 ? "INTRODUZCA EL ORIGEN «8-1281! “ 

; INPUT A ¡TRAP 55 

38 IF A <40 OR A>120 THEN 35 

40 ? >■ 128- 601: " 

: INPUT BíTRAP 40 

42 IF B(20 OR B>60 THEN 40!? !? 

45 ? "INTRODUCZA EL RADIO í 1“ SOIS 

¡INPUT C ! TRAP 45 

50 IF C<1 OR C>$0 THEN 45 

60 FOR F-0 TO 2*3.1415926 STEP 2*1.141 

5926/360 

65 D=ISINtFÍ*Cl+A:E=iCOSIF»*C+B) 

78 PLOT D,E:DRAHTO A,B 

88 NEXT F:F0R 1=1 TO 388ÜEXT I 

90 ? “ QUIERE DIBUJAR OTRO ÍS/N1 ?":IN 

PUT 5$:IF S5="S" THEN 18 

180 TRAP 90! FOR S=i TO S99:MEKT 5:2 ” 

CHAO ATARIAMOS" 


SOLUCIONES PREMIADAS 

En este número la columna GUIA BASIC 
premia las soluciones correctas recibidas hasta el 
22 de septiembre con la modificación al progra- 
ma RETICULA EN MODO 8. 

Una solución consistía en modificar la lí- 
nea 190 por la siguiente: 

1*0 RL-RL“I.5 


Al ejecutar con esia modificación aparece 
la pantalla como la foto siguiente: 



Los lectores favorecidos son: 

Emilio A rende Conde i í 1283, V jipa mi' so, 

José /barre Castillo, A n gamos 124, Lorenzo Arenas 
1 r Concepción. 

Manuel E. Gómez Barrera, Woodrow Wilsúi ? 1621 f 
Población Huanhvti, La Serena 
Hermanos García, Correo El Túbo, San Antonio 
Gustavo Muñoz Marín, Francisco Silva 0683, San 
tiago 

Wihon Rabo f ledo González, Aysén 5921, Pob la- 
cló n O'H iggins 592 1, An to fagas ta 
Carlos Roco Véiiz, independencia 550, Vicuña, 
Eiqui 

Ernesto Acuña Mercier, Apoquínelo 79 10, Torre 1, 
Departamento 1002 r Las Condes , Santiago 
X imana Bar rientos, Chaca buco 0125. Vida C frena, 
San Bernardo 

Rodrigo Gesswein , José Domingo Cañas 1988 T De- 
partamento 44 f Ñuños, Santiago 
Leonardo Duran, San Pedro 241, La Florida, San- 
tiago 

Mario Acuña Cas ti fío, Brasil 684 x San Carlos 
Cristian Cortés Correa, Punta Arenas 1 , Providen- 
cia, Santiago 

Juan Pablo Torres Martínez, Tea tinos 8 09- A, San- 
tiago 

Fernando Nüñez Pizarra, Aquelarre 5350, Vi fia 
Santa Elena, Santiago 

Eduardo Es teñan Carvajal, N., Pasaje Rucara y 1835 
Te muco. 


Ellos reciben de premio una Tarjeta de Rote* 
renda. 

En general vemos que ustedan han sobrepa- 
sado con entusiasmo y conocimientos las metas 
iniciales de comunicación. En los próximos nú- 
meros habrá nuevos desafíos para ustedes. 
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Aprendiendo los colores 


OTRA NOVEDAD PARA "PEGUES": 

Este fríes iniciamos una actividad que intere- 
sa r á a l j n g ra n número d e i e c to re s y p r ■ o po r c i u r i a r a 
momentos agradables junto con el [agro de un ob- 
jetivo específico de aprendizaje. 

Ahora el conocimiento de los colores y la 
interacción con el pequeño de Id casa valorizará 
la actividad de. nuestro común amigo: el compu- 
tador ATARL 

Digíte cuidadosamente el listado siguiente: 


60 PRXNT "«"SWE 752,1 
62 P05ITI0H S, 8 : PRIHT 

64 FOR PAUSft-1 TO 1008:HEXT PPU5A 
66 DIH HOMBRES t8) , INTEHTOS (8) 

69 DIM TODO 5$ Í80) 

78 TODOSSr-BHim 

Mm'mmsm 


EQM mmiio 


il 


ZUL PORP 


GRIS BLANCO N 


► 


L 
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PE QU ES: continuación 


38 POKE 752,1 

lee fbr i-i to ie 

íes Graphics o-poke 752,1 

110 REAA HUE , UIHí NÜH0R£$ 

120 SE TC OLOR 2, HOE,LUH 
130 F0R J-i TO 73 5TEP 8 
135 PGSITION 16, 8: PRINT " 

146 PQ5XTI0N 16,8: PRXMT TODOSS U t J+7) 

158 POKE 754,255 

155 OPEN ttl,4,0/ í K: M 

160 KEY-PEEKC764) JlF KEY-255 THE* 168 

165 CIOSE ttl 

170 IF KEY-33 TKEH 210 

180 IF KEYÜ12 TOEN KEY~255:GÜTÜ 166 

185 GOSUB 2516 

138 IF I*iT£NTÜÍ¡=JI0HBRE$ THEN €0506 181 
8: POP í GOTO 228 
208 GOTO 2810 
Z18 KEXT J 

215 TRAP 138: IF XNTENT05$O¡fGHBRE$ THE 
N 130 

220 HEKT I 

250 POKE 752, 0: GRAPHICS 0:EMI> 

1018 GRAPHICS 1 íPOSITIÜN 0,4:? U6; 11 C 
ORRECTISIH0 "íFOR PAUSAD TO 1888:NÉKT 
PAUSA ¡RE TORO 


2010 GRAPHICS 1 íPOSITION 0,4:? «fe : 

E ÍMXMümiÜ ":>0« PAUSA-I TO 1088:HEKT 
PAUSA: GRAPHICS 8: POKE 752,1:6010 120 
2500 REH 

2510 JHTENT0$~TÜI>Ü5$f J, J*71 
2560 RETUJtM 

3000 REH **# COLOR DATA 

3010 data 2,i5 J t3SHiaSI3.fl J fl f [TÍTnM,e 


, 8 , 


GRIS 




2,i2,iM3K»,4.i5,¡a!BaiiaB 


3020 OATA 5,6, 

,1S,HGEE 


PURPURA 


1,6,2, 


AZUL 


1,12 


Ai ejecutar aparecerá en pantalla lo siguiente; 



Las siguientes instrucciones deben ser entre- 
gadas previamente ai pequeño; 



— Si el color no corresponde a I texto de pan- 
talla, dehe presionar la barra espadadora. 



- Si el color corresponde al nombre debe pre- 
sionar la tecla RETURN. 


El ATARt evalúa la respuesta del peque y 
entrega alguno de los siguientes mensajes: 





i ¥ 

Este progra ma po d r i a ser opt i rn i ¿a do sí 3a 
i n te r a c c i ó n con el l i s t j a r i o fuera no n I a " v o z g r' a - 
bada en la cinta del mismo casete. 

Este es un desafío para nuestros lectores de 
MUNDOATARL « 

i 
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Clases^ 
con ATARI 



UBICACION ESPACIAL 

Este .mes la columna CLASES proporciona un 
programa práctico, dirigido también a los más 
pequeños de Id casa, en relación a una actividad 
especffica. 

Objetivo: 

Capacitar a los pequeños en los conceptos 
de ubicación espacial: 

— arriba 

— abajo 

— derecha 

— izquierda 

y encadenarlos con las teclas del movimiento del 
cursar (flechas). 

Qigite cuidadosamente e! listado siguiente: 



8 GRAPHICS 8 

68 PRI8T "V'lPOXE 752,1 

65 P05ITIGN l.SiPRZNT "<*033333 ~ ABAJO 

- manara i - derecha»" 

66 FOR PAU5E=1 TO 2000 ¡NEXT PAUSE 
88 DIN AS ti) 

28 DIN Bt4J ¡¡SCl>=45:8í2í=61:8tS)=4i:l¡ÍÍ 
4) =42 

188 OPEH ítl,4,8, ,, t£:“ 


118 FOR D=1 TO 4 

111 GRAPHICS 2 : P6XE 752,1 

112 POItE 756,226 
115 SETCOLOR 0,8,0 

128 P8IHT " *** CUAL DIRECCION ?* 

#• 

138 ON D GOSfJB 3010,3510,4810,4510 
158 GET Bl.lt 

160 IF K=Bt») THEN GRAPHICS OJPOICE 752 

,1 ¡GOSBB 1018:G0T0 200 

178 GRAPHICS BiPOKE 7S2,1:G0SUB 2818 :G 

OTO 111 

280 NEXT D 

205 CLOSE «1 

210 GRAPHICS 0IPOKE 752,1 

220 POSXTIOM 15,8 ¡PRIHT "REPITE 5/N";: 

IHPIIT AS 

230 IF AS="5" THEM 180 
240 IF A$O n IP‘ THEH 210 
250 GRAPHICS 8;P0KE 752,0:EMO 
1010 GRAPHICS 1 iPOSXTXOll 9,4:? tt6 ; " C 
QRRECTISIMC "¡FOR PftUSA=l TO 1800 ¡NEHT 
PAUSA ¡RETURN 

2010 GRAPHICS i ¡PO5ITI0N 0,4:? B6;"SÍfí 
íi , fi q> >*;ifr4 l W “¡FOR PAtl5A=l TO 1090 ¡«EXT 
PAUSA ¡GOTO 111 
3000 REH 

3018 POSITIOH 7,1:PRIKT 86 ; ‘‘líniiíEE" 

3012 FOR L=1 TO 3 

3813 FOR J=10 TO 2 STEP -1 

3015 50UH0 8, J*25, 10,15 

3028 POSITIOH 9,J;PRIHT »6{CHftStZ7í ; :P 

OSE 85, 2 :PRIHT tt6;CH#$t26> 

3035 FOR PAH5E=i TO 20¡NEXT PAUSE 

3036 IF J=2 AMO L=3 THEH 3038 
3017 POSITIOH 9, J: PRIHT #6i" " 

3838 KEXT J 

3039 NEXT L 

3040 SDUHD 0,0,8, 0 
3050 RET.URN 

3500 REH 

3510 P05ITI0H 8,9 ¡PRIHT B6;' , 0i!IID ,1 

3512 FOR L=1 TO 3 

3513 FOR J=# TO 8 

3515 50UMD 0,J*2S,18,1S 

3528 POSITIOH 9,J:PRIH! B6;CH«StZ7) ; ¡P 

OKE 85, 9:PRINT B6;CHRSt29) 

3535 FOR PAU5E=I TO 20ÍNEXT PAUSE 

3536 IF J=8 AKO L=3 THEN 3538 

3537 POSITIOH 9,J:PRINT B6 " 

3538 NEXT J 

3539 NEXT l 


► 
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APLICACIONES: continuación 


•jfc REVALORICE 
SU ATARI 600 XL 



Transfórmelo en 800 XL 

EXPANDA LA MEMORIA 
A 64 KB 


PRODUCTORA DE SOFTWARE 5- A- 

MuifiSoft 


Providencia 2198, Local 53, Teléfono 2324782 


COLABO RACIONES 

MUNDO ATARI recibe artículos , progra- 
mas y columnas de continuidad para ser 
editadas en los próximos números. 

Este material será evaluado y analizado 
de acuerdo a nuestra línea editorial. 

La publicación de él en las páginas de 
MUNDO A TARI estará supeditado a las 
disponibilidades de espacio o a fas nece- 
sidades de la edición. 

Los artículos deben ser escritos a máqui- 
na o en procesador de textos. Los progra- 
ma s f grabados en casete o diskette y lis- 
tados además en impresora : 

MUNDO A T A Rl r previo a la publicación 
de un aporte , enviará el dinero correspon- 
diente a su pago ; constituyéndose éste en 
propiedad de la revista. Las contribucio- 
nes no aceptadas por la revísta serán de- 
vueltas a sus autores . 


3540 sound # f 8,e,§ 

JSS* RETUftN 
4008 REH 

4616 P05ITI0N 4,5:PRMT Mi'VOgaaaiHR* 


40 12 FOR l~i T0 3 

4013 FOR J-19 T0 4 5TEP -1 
4615 S mnb 8,INTt250/J),I0,I5 

4026 miíIOH J, SPRINT ft6;CUR$(27); :P 
05ITI0N JiSiPRIKT M;C§lR$í30i 

4635 FOR PAU5E=1 10 20: NEKT PAUSE 

4636 IF J"4 ANO US THEN 4638 
4037 P0SXTX0N J,5:PRINT NO; 11 11 


4030 

4639 

4046 

4050 

4500 

4516 

4512 

4513 
4515 
4520 


NEKT J 
NEKT 1 

smm 0 # 0 f «,0 

RETURN 

REH 

P05III0N 8, 5 ;PRXNT t»;*1 
FOR t~I T0 3 


DERECHA 


FOR J=0 T0 14 

50UND 0,INTt258/ÍJUl J f 10,Í5 
P05ITI0N J,5:PR1NT «6;CHR$C27); 



OKE 05, JrPRINT tt6 ; CKR$ (31 J 


4535 FOR PAUSE-I T0 20 ¡ NEKT PAUSE 

4536 IF J=14 AND L-3 THE» 4530 

4537 P05ITI0N J f 5 SPRINT H6j” " 
453S NEKT J 

4539 NEKT L 

4540 50IIND 0, 3,8,0 
4550 RETUR» 


Ejecute el programa. Aparecerá una pantalla 
similar a ta de la foto: 



Presione la tecla correspondiente del teclado 
y continuará con el siguiente punto de referencia. 

Observe que las líneas 1000 al 2100 son idén- 
ticas al listada de la columna Peques de este mes, 
y por lo tanto Sos mensajes de evaluación de re- 
sultados son iguales; 

Que se diviertan. Hasta el próximo mes. # 
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CLUB ST 


f o t o c o p i a eco r i ó m i na : 

— VI P (planilla electrónica) 

— D B M A N ( b a s e d e d a t os I 

— PC DITTO (emulador de IBM) 
C A D 3d ( graf i ca dor én t res d i 
mens iones) 

DI S K D OC T O R (ana I i zador 
de diskette) 

Los p r og ra ma s co r res po n - 
dientes a costo de diskette 
(S ICO menos 10P/o). 

3, ¿Cómo obtener estos benefi- 
cios? 

a) Personalmente en nuestro lo- 
ca! en Av. 11 de septiembre 
2305, local 18. 

b) Por Intermedio de la Orden 


4. 




5 . 


de Pedido, anexa ai Catalogo 
ATAR i, indicando el número 
de socio del CLUB ST. 

No podrán obtener este bene 
f icio otras personas (exclusi 
vo para socios 

Publicación anexa a revista 
MÜNDOATARL 

En este número iniciamos una 
publicación para el uso 
DBMÉN por parte de 
usuarios def CLUB ST. 

Futuros beneficios. 

C lases pa ra g r u po s d e los p r i n ■ 
d pales utilitarios que intere- 
sen a los miembros del Club. 


Inscríbase luego, pues el nú- 
mero de socios er limitado. 


&c£ 


Ei Club ST ha. iniciado sus 
actividades, ai cual se pueden 
incorporar socios de otros paí- 
ses a partir de este número. Los 
beneficios están dirigidos a todos- 
ios usuarios de esta línea del 
ATAR I . 


1. ¿Cómo inscribirse en este 
CLUB? 

Envíe una carta con sus datos 
personales y el número de sus- 
cripción de la revista. De inme- 
diato f o r n i a rá pa r t e d e es te C I u b 
de acceso restringido. 


2. Beneficios iniciales. 

En este momento el Club. dis- 
pone de manuales de los si-, 
guien tes programas al costo de 








EVENTO 

Con i.in ua I as d as i í i ca don es 
para al Rey del Video ji^p. 

I n se r í be re , re c u e r d a q ue e ! 
L-.Vr-N 1"0 finaliza el sábado 2 de 
enero de 1 988, 

Las bases se encuentran en 
MUNDO ATAR I No. 4, 



DICIEMBRE: 

Inicio de vacaciones 


M UN DOA T A R I t i ene pa ra 
todos nuestros escolares de ense- 
ñanza b física y media la siguiente 
j cf í vi dad pa ra d í cié m br e , ti i r ig i - 
da a todos nuestros lectores de 
Santiago: 

T o d o s I o s d j a s p u ed es gana r 
! megos ATARI en casete o dis- 
kette, participando en el juego 
del día r en nuestro local de Av. 
11 de septiembre 2305, local 18, 

¿Cómo ganar? 

Sólo debes superar el máximo 
asignado para el juego > 


¿Cómo participar? 

Muy simple, sólo debes p re 
s e n t a r I a r e v i s t a M U N Q O A T A R l 
de diciembre, el carnet de socio 
del ATARI Cl UB y el- certTicu- 
do de notas (o libreta de notas) 
con un promedio sobre 5,6. 

Es f 1 1 érzat e es te ú 1 1 i mo mes 
pues puedes superar tus califica- 
ciones y ganar juegos todos ios 
d fas. 

M I J N D O A T A Fl I e s t á co n t i g o 
en este mes de regalos para lia 
certe pasar gratos momentos. 



RANKINC 

3 


El estado de las preferencias 

de video juegos es el siguiente: 


Karata Championship 

1200 

¡ 2. 

Fight Night . 

. 980 

3 

Joust ........... 

. 700 

4. 

Bruce Lee ........ 

. 630 

5 . 

Montezuma 

. 610 

6 , 

Pacman .......... 

. 560 

7. 

F- 1 5: Strike Eagíe . . . 

. 540 

8. 

Forth Apocaíypse . . . 

. 500 

9. 

Keystone . , 

. 450 

10. 

Great American Race. 

. 430 

11. 

Su per man 

. 400 

12. 

Jumpman 

. 380 

\ 13 . 

Pengo 

. 350 

14. 

Frogger 

. 310 

75. . 

Efectrician . . 

.240 

16 . 

Kennedy Approach . . 

. 180 

17. 

SÜent Service 

. 160 

18. 

The Last V-8 

. .90 


En el m es de d i c i e m b re fina- 

! izará el Ranking del ano 

1 987, 

Co 1 1 t o c 1 ■■ j s los ca rías recibidas d i j - 

rante el presente año hasta el 15 

de i 

noviembre habrá muchos pre- 

míos de Pascua. 
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SUPERMAN 
400 puntos 


PENGO 
350 puntos 


THE LAST V- 8 
90 puntos 


K ARATE CHAMPlONSHtP 
1200 puntos 


FfGHT NIGHT 
900 puntos 


JOUST 
700 puntos 


PACMAN 
560 puntos 


F-15: STRíKE EAGLE 
540 puntos 


KEYSTONE 
450 puntos 


GREAT AMERICAN RACE 
430 puntos 


BRUCE LEE 
630 puntos 


MONTEZUMA 
610 puntos 




PROGRAMAS 


VIDEOMANIA Estos son algunos de los fuegos preferidos de ustedes * 
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PROGRAMAS : continuación 


Centippede 


Nombre 

: CENTIPPEDE 

Productor 

: ATAR i 

Memoria 

: 16 Kb 


En este i negó debes cuidar tu 
jardín de los ataques de Centip- 
pede, una gigantesca cuncuna, 
que tratará, de eliminarte a ti' y 
a tus plantas. 

La única defensa posible para 
impedir las trágicas consecuen- 
cias de este ataque es destruir a 
su gestor: la mismísima cuncuna 
Centippede, con la ayuda de tu 
insecticida láser, arma de alta 
tec no logia , d i señada especial- 
mente para la destrucción de 
Centippede, la cual no tiene for- 
ma de defenderse ante esta terri- 
ble arma. 

Si no logras destruirla rápida- 
mente, esta maligna cuncuna irá 
multiplicando sus pies hasta que- 
dar de un tamaño tan grande que 
te será imposible contener su 
ataque. Cuando la hayas destruí 
do no tardará en aparecer otra, 
con las mismas intenciones de 
la primera. 

No te descuides, porque no 
es sólo de la cuncuna de lo que 
debes cuidarte, también debes 
hacerlo de las aranas [que tratan 
de aplastarte) y de los maceteros 
que te son lanzados desde lo al- 
io de la pantalla. 

En suma, se trata de un jue- 
go muy entretenido y exitante, 
cuya complejidad depende sólo 
de la habilidad que poseas en el 
manejo del joyst ick. 

Sin duda alguna, le esperan 
momentos de emoción y entre- 
tenimiento junto a este juego. 
Esperarnos que te diviertas hasta 
que nos volvamos a ver en el 
próximo número, amigo video 
maníaco. 




i 


4-. 




i* 
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f POR LA COMPRA > 

de un 

COMPUTADOR ATAR!, 
ANTES DEL 30 DE 
NOVIEMBRE. RECIBA 
GRATIS LOS N afi 1 , 2, 3 y 4 
DE LA REVÍSTA MUNDO 
ATARI. 

PROMOCION EXCLUSIVA 
W DE MURICY. J 


feüvftl 






■*v f .• ■«' 






;S?*Kai 


Ingrese al mundo de la computación y electrónica con su 
Tarjeta de Crédito Preferencial Muricy. 

En Muricy encontrará toda la linea de Home Computer con 
una gran variedad de marcas y precios. Muricy le proporciona 
atención especializada y orientación en la adquisición del 
computador adecuado para usted o sus hijos. Decídase, 
incorpore hoy los avances de la computación y electrónica a su 
hogar, con los precios más convenientes. En Muricy usted 
cuenta con exhibición y demostración permaxiente de estos 
equipos. Use su Tarjeta de Crédito Preferencial y sáquele partido. 

















EN MUEBLES DE COMPUTACION ... 

AUN NO SE HABIA DICHO LA ULTIMA PALABRA» 



1^1 £ 












' 


f 


Modelo BJ LE 




: v . V : . > ; / 


1.20 m 


■ jj . 

■u 

•' v'-'v*' - . IÍ?* 


OMICA 








mm 




Ahora en Chile 
la Experiencia 
y Calidad que 
otorgan 4 años de 
exportación . . . 
Además, completa 
y moderna línea 
en muebles 
de oficina. 


Largo 
Ancho 
Alto . 


Giratorjaf con respaldo 
y ajkiía ajustable, base 
metálica - ruedas 
recubíerta en madera 
de eucalipto. 


Modelo PR1NTER 

atgo 0.70 

.pdfih f 

ítp/l m. 

bí ndeja Calida y 
ecepdíMVael papel. 


Cubierta impermeabilizada 


sellado y barniz ACRIL * URETANO 


Madera aglomerada 
enchapada por ámbas caras 


-• Madera sólida de Eucalipto 


MANUFACTURA DE PRODUCTOS GENERALES IMPROGEL S.A. 

San Borja 1308 Comuna Estación Central Fono: 761750 








